Напишите программу которая считает сумму чисел от 1 до 15 с операторов For, While и repeat

101

132

Посмотреть ответы 2

Ответы на вопрос:

masya05781

Информатика

4,5(25 оценок)

program ot1_15_3cikla;

var

i,s:Integer;

begin

//for

s:=0;

for i:=1 to 15 do

s:=s+i;

writeln(s,' for');

//while

i:=1;

s:=0;

while i<16 do

begin

s:=s+i;

i:=i+1;

end;

writeln(s,' while');

//repeat

i:=1;

s:=0;

repeat

s:=s+i;

i:=i+1;

until i>15;

writeln(s,' repeat');

end.

Nikyyysik

Информатика

4,4(52 оценок)

флешмоб

Объяснение:

Флешмо́б — заранее спланированная массовая акция, в которой большая группа людей появляется в общественном месте, выполняет заранее оговорённые действия и затем расходится