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

Question

Информатика

Ириша

24 июня, 14:17

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

+2

Ответы (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.