есть алгоритм нужно перевести в систему паскаль
вариант 1
Приложения:
Ответы
Ответ дал:
0
//Pascal
//var 1
var i:integer;
s:real;
begin
readln(s);
for i:=1 to 5 do s:=s+(sqr(s)+i)/i;
writeln(s);
end.
//var 1
var i:integer;
s:real;
begin
readln(s);
for i:=1 to 5 do s:=s+(sqr(s)+i)/i;
writeln(s);
end.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад