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

Question

Информатика

Фульгозий

20 апреля, 20:30

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

+2

Ответы (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.