Составьте программу паскаль для нахождениявсех счастливых автобусных билетов чтобы из низ извлекался квадратный корень
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 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.
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.
Новые вопросы в разделе Информатика
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00