Даны 10 чисел, вывести те из них, которые являются полными квадратами. Составить программу паскаль.
BlackElegant
1
13.04.2020 17:41
6
Другие вопросы по теме Информатика
baten
17.06.2019 08:10
lilia822
03.10.2019 17:40
FireFlyWasDeadBefore
03.10.2019 17:40
Ukine
11.08.2019 00:30
мажорчик2
11.08.2019 00:30
тучя
02.04.2020 16:41
marinapogosyan
02.04.2020 16:41
milena226
02.04.2020 16:41
Популярные вопросы
- Яка довжина радіохвилі , періоду, якщо чостота дорівнює 50кгц ...
1 - Задание 4. Найди и запиши недостающие данные в таблице. Длина прямоугольника...
3 - Суды тазарту үшін қолданатын табиғи зат...
3 - ПО ДАННЫМ НА ТЕРТЕЖЕ,НАЙТИ УГОЛ А . ВСЕ НА ФОТО....
2 - Халявные , решите номер 2 и 3....
2 - Вычислите объем кислорода, который потребуется для получения 35,5 г...
2 - Əдебет 2. Мәтінге сүйеніп және суретке қарап, Бұлдырмергенгемінездеме...
1 - Занимаясь в художественной школе , Миша за год нарисовал 15 картин,...
3 - 1) |7x 2 + x| – 8 = 0 2) |4x 2 + x| – 33 = 0 3) x 2 – 8|x| + 7 = 0...
1 - Как представить число 47 в в виде бесконечной периодической десятичной...
3
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.