Program sss;
Uses crt;
var
begin
writeln ('Сколько собрал каждый?');
for i:=1 to 15 do
write (i,' - ый человек собрал ');
readln (kg);
s:=s+kg;
end;
writeln (s,' - кг всего собрали');
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Program sss;
Uses crt;
var
begin
writeln ('Сколько собрал каждый?');
for i:=1 to 15 do
begin
write (i,' - ый человек собрал ');
readln (kg);
s:=s+kg;
end;
writeln (s,' - кг всего собрали');
end.
Var i,s,kg:integer;