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

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

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

Question

Олегыч

2 августа, 18:37

+5

Ответы (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 Написать Сумма_доТо есть вид программы Сумма_до