Предмет: Информатика,
автор: alekseevalex
Паскаль Через Циклы
Приложения:
Ответы
Автор ответа:
1
var m,b:integer;
s,c:real;
begin
writeln ('Введите количество повторений:');
read (m);
s:=0;
c:=sqrt(2);
for b:=1 to m do begin
s:=s+c;
c:=sqrt(c);
end;
writeln ('S=',s);
end.
Интересные вопросы
Предмет: География,
автор: creepylast228
Предмет: Математика,
автор: sandra22281
Предмет: Физика,
автор: juramalan123
Предмет: Физика,
автор: игогошка2