var sum, m, k:integer;
begin
sum := 0;
m := 10;
for k := 0 to 5 do begin
sum := k+m;
m := m-2;
end;
Writeln(sum);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var sum, m, k:integer;
begin
sum := 0;
m := 10;
for k := 0 to 5 do begin
sum := k+m;
m := m-2;
end;
Writeln(sum);
end.