Предмет: Информатика, автор: max007germany

Написать программу, которая суммирует 12 любых чисел (вводит пользователь или генератор случайных чисел). Использовать цикл for. Переменных не более 5 шт. и использовать цикл While. PascalABC. 25 баллов ​

Ответы

Автор ответа: egord2020
2

1) Цикл for

uses crt;

var j,count,i:integer;

begin

j:=0;

for i:=1 to 12 do

begin

 readln(count);

 j:=j+count;

end;

writeln(j);

end.

2) Цикл While

uses crt;

var j,count,i:integer;

begin

j:=0;

i:=0;

while i < 12 do

begin

 readln(count);

 j:=j+count;

 i:=i+1;

end;

writeln(j);

end.

Похожие вопросы
Предмет: Українська мова, автор: zaharovafrolova
Предмет: Математика, автор: Лисанька1