Question

составить алгоритм и программу: вывести на экран числа по формуле а:= 4а+1 (диапазон чисел от 1 до 50);

Answer 1

program chisla;
uses crt;
var a,b : integer;
begin
for a:=1 to 50 do
begin
b:=4*a+1;
writeln(b);
end;
end.