1 Ввести число N.
2 Присвоить x единицу.

1 Возвести x в квадрат и присвоить полученное значение переменной y.
2 Если y < n, вывести значение y на экран.
3 Увеличить значение x на единицу.
Пока y не станет больше n

var
x,y,N:integer;
begin
write('Enter N: ');
readln(N);
x:=1;

repeat
?????????;
if y ????????????;
x:=x+1;
until y>N;

readln
end.

199

278

Посмотреть ответы 2

Ответы на вопрос:

vladinfo1

Информатика

4,7(73 оценок)

.......... ..........

Объяснение:

..........

...............

ангелина618

Информатика

4,7(91 оценок)

Uses crt; var a,b,c,d,v: integer; begin readln (a,b,c,d); if (a< b) and (a< c) and (a< d) then v: =a; if (b< a) and (b< c) and (b< d) then v: =b; if (c< a) and (c< b) and (c< d) then v: =c; if (d< a) and (d< b) and (d< c) then v: =d; writeln (v); end. тут исправленно