Предмет: Информатика,
автор: max007germany
Написать программу, которая суммирует 12 любых чисел (вводит пользователь или генератор случайных чисел). Использовать цикл for. Переменных не более 5 шт. и использовать цикл While. PascalABC. 25 баллов
Ответы
Автор ответа:
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.
Похожие вопросы
Предмет: Українська мова,
автор: makcyc
Предмет: Українська мова,
автор: zaharovafrolova
Предмет: Українська мова,
автор: VLADUSLAV1
Предмет: Математика,
автор: Лисанька1
Предмет: Литература,
автор: Зайчонок808