Var i:integer; begin For i:= -15 to 5 do Writeln('y = ', 23 * i + 1); end.
Вывод y = -344 y = -321 y = -298 y = -275 y = -252 y = -229 y = -206 y = -183 y = -160 y = -137 y = -114 y = -91 y = -68 y = -45 y = -22 y = 1 y = 24 y = 47 y = 70 y = 93 y = 116
Answers & Comments
Verified answer
Программы 3 и 4 и скриншоты их работы - в приложенияхVerified answer
Vari:integer;
begin
For i:= -15 to 5 do
Writeln('y = ', 23 * i + 1);
end.
Вывод
y = -344
y = -321
y = -298
y = -275
y = -252
y = -229
y = -206
y = -183
y = -160
y = -137
y = -114
y = -91
y = -68
y = -45
y = -22
y = 1
y = 24
y = 47
y = 70
y = 93
y = 116