program qq; uses crt; var i, n: integer; begin clrscr; writeln ('Введите число n: '); read (n); i:=1; while sqr(i)<n do i:=i+1; writeln (sqr(i)); readkey; end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
