22.04.2010, 23:11
|
|
Участник форума
Регистрация: 01.03.2009
Сообщений: 121
С нами:
9050197
Репутация:
38
|
|
Сообщение от dark-klin
Товарищи может кто нибудь решить первую задачу PASCAL ABC с FOR и WHILE http://ipicture.ru/upload/100422/85oWRRrV7g.jpg
PHP код:
uses crt;
var
n,i:integer;
s:real;
begin
clrscr;
writeln('Vvedite N');
readln(n);
i:=1;
while i<=n do
begin
s:=sqrt(s+sqrt(2*i));
i:=i+1;
end;
writeln('s=',s:3:3);
readln;
end.
Последний раз редактировалось SkyLine32; 22.04.2010 в 23:22..
|
|
|