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

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

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

While по-английски

Question

Пахомий

24 ноября, 20:14

+3

Ответы (1)

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

Дареха · Answer 1

Var S, i:integer;

Begin

S:=0;

i:=1;

While i < = 5 do

Begin

S:=S+i;

i:=i+1

End;

WriteLn ('S = ', S) ;

End.

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