Найти значения функции у= 5х+х2, при х=50, 49, 48, 47, …, 40. ПАСКАЛЬ.
Var s,i :integer;
begin
for i:=50 downto 40 do
begin
s:=(5*i)+(i*2);
writeln(s);
end;
end.
Оцени ответ
Вход
Регистрация
Задать вопрос
Var s,i :integer;
begin
for i:=50 downto 40 do
begin
s:=(5*i)+(i*2);
writeln(s);
end;
end.