Даны 10 чисел, вывести те из них, которые являются - вопрос №1011201327 от kirillfox99ozbdp8 02.02.2023 08:27

Question

Информатика: Даны 10 чисел, вывести те из них, которые являются полными квадратами. Составить программу паскаль.

kirillfox99ozbdp8 · Answer

const  n = 10;var  i, x, q: integer;begin  for i := 1 to n do    begin    read(x);    q := trunc( sqrt(x) );    if sqr(q) = x then      write(x, );    end;end....