Все
Математика
Алгебра
Геометрия
Литература
Русский язык
Истоки
Краеведение
Французский язык
Литературное чтение
Астрономия
Природоведение
Родной край
Немецкий язык
Технология
Физика
Английский язык
Обществознание
Химия
Биология
История
О`zbek tili
Окружающий мир
Естествознание
География
Украинский язык
Информатика
Украинская литература
Казахский язык
Физкультура и спорт
Экономика
Музыка
Право
Белорусский язык
МХК
Кубановедение
ОБЖ
Психология
Кыргыз тили
Другие предметы
Показать все предметы
Колояр
04.10.2022, 13:15
Информатика

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

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

Чтобы оставить ответ, или зарегистрируйтесь.

Ответ или решение 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.