Вариант 1 (ответ просто True/False):
var
n: integer;
begin
writeln('Проверка, является ли натуральное число N точным квадратом');
write('Введите натуральное число N: ');
Read(n);
writeln('Результат: ', (Sqr(Int(Sqrt(n))) = n) and (n > 0));
end.
Вариант 2:
var
n: integer;
begin
writeln('Проверка, является ли натуральное число N точным квадратом');
write('Введите натуральное число N: ');
Read(n);
writeln('Результат: ', n > 0 ? Sqr(Int(Sqrt(n))) = n ? 'является' : 'не является' : 'введено число, не являющееся натуральным');
end.
Var i, n, k:integer ;
A:array[1..100]of Integer ;
Begin
Write('n=') ;read(n) ;
For i:=1 to N do begin
A[i]:=random(100);
Write(' ', A[i]) ;end;
K:=0;writeln;
For i:=1 to N do begin
If A[i]<50 then a[i]:=50;
K:=k+1;end;
If k=0 then write('таких элементов нет')
Else For i:=1 to N do write(' ', A[i]) ;
End.