begin
Readln(a1);
Readln(d);
for i := 1 to 10 do
a:= a + d;
Writeln(a);
end;
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Я думаю что на рисунке 3 что-то вроде.
var a1:integer;var d:integer;var i:integer;
begin
Readln(a1);
Readln(d);
for i := 1 to 10 do
begin
a:= a + d;
Writeln(a);
end;
end;