1)var s,k: integer;
begin
s := 0;
for k := 3 to 7 do
s := s + 6;
writeln(s);
end
2)var s,k: integer;
begin
s := 0;
for k := 4 to 8 do
s := s + 7;
writeln(s);
end.
3)ar s,k: integer;
begin
s := 0;
for k := 4 to 7 do
s := s + 8;
writeln(s);
end.
4)var n, s: integer;
begin
n := 1;
s := 0;
while n <= 100 do
begin
s := s + 30;
n := n * 2
end;
write(s)
end.

Dasha29081    2   12.05.2020 13:04    19