Question

Найти значения функции у= 5х+х2, при х=50, 49, 48, 47, …, 40. ПАСКАЛЬ.

Answer 1

var s,i :integer;
begin
for i:=50 downto 40 do
begin
s:=(5*i)+(i*2);
writeln(s);
end;
end.