Напишите программу для Паскаля АБС (старая версия)

Сумма от 1 до 5 Написать Сумма_до

То есть вид программы Сумма_до

Question

Сона

7 мая, 07:08

+2

Ответы (1)

Знаете ответ?

Вила · Answer 1

Var

S, i:integer;

Begin

S:=0;

i:=1;

Repeat

S:=S+i;

i:=i+1

Until i > 5;

WriteLn ('S = ', S) ;

End.

Напишите программу для Паскаля АБС (старая версия)Сумма от 1 до 5 Написать Сумма_доТо есть вид программы Сумма_до