Составить программу на языке Паскаль для следующей задачи: даны тиражи 20 центральных журналов СНГ за текущий год, требуется найти общий тираж этих журналов.
Составить программу на языке Паскаль для следующей задачи: даны тиражи 20 центральных журналов СНГ за текущий год, требуется найти общий тираж этих журналов.
Гость
Ответ(ы) на вопрос:
ГостьЕсли я правильно понял задачу:
var s, b, a: integer;
begin
for b:=1 to 20 do begin
writeln('Введите тираж ', b, ' журнала.');
read(a);
s:=s+a;
end;
writeln('Общий тираж: ',s);
end.
Не нашли ответ?
Похожие вопросы