Составьте программу паскаль для нахождениявсех счастливых автобусных билетов чтобы из низ извлекался квадратный корень

Question

Информатика

Агафения

19 мая, 22:01

Составьте программу паскаль для нахождениявсех счастливых автобусных билетов чтобы из низ извлекался квадратный корень

+1

Ответы (1)

Знаешь ответ?

Анорбай · Answer 1

Программа проверяет, извлекается ли из введеного числа корень (без дробной части)

program bilet;

var

a:longint;

b:real;

begin

writeln ('vvrdite nomer');

readln (a);

b:=sqrt (a);

if b*b=a then writeln ('schastlivuy')

else writeln ('uvyu');

readln;

end.