Напишите программу, подсчитывающую общее количество человек во всех 11 классах (как она будет записываться в Паскале)

Question

Информатика

Ротя

5 ноября, 15:54

Напишите программу, подсчитывающую общее количество человек во всех 11 классах (как она будет записываться в Паскале)

+4

Ответы (1)

Знаете ответ на вопрос?

Рема · Answer 1

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.