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

Question

Информатика

Манола

23 февраля, 04:01

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

+4

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