Напишите программу, подсчитывающую общее количество человек во всех 11 классах ( как она будет записываться в Паскале)
Напишите программу, подсчитывающую общее количество человек во всех 11 классах ( как она будет записываться в Паскале)
Гость
Ответ(ы) на вопрос:
Гостьprogram klas;
uses crt;
var
n,p,i,r:integer;
begin
writeln('Kolichestvo 11 klassov :');
read(n);
for i:=1 to n do
begin
writeln('Vvedite kol-vo chelovek v ',i);
read(p);
r:=r+p;
end;
Writeln('Vsego v ',n,' klassah ',r,' chelovek');
end.
Не нашли ответ?
Похожие вопросы