Предмет: Информатика,
автор: Kiara20
Напишите программу, подсчитывающую общее количество человек во всех 11 классах ( как она будет записываться в Паскале)
Ответы
Автор ответа:
0
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.
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.
Интересные вопросы
Предмет: Музыка,
автор: ramilyamurzakovacom
Предмет: Математика,
автор: sholpannogaeva1971
Предмет: Французский язык,
автор: darinavargasova78
Предмет: Алгебра,
автор: anastasyasidor
Предмет: Математика,
автор: 611081