tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Вводится натуральное число.
Вводится натуральное число. определить, является ли оно пол- ным квадратом. ответ выдать в форме yes | no.
amir45
3 20.07.2019 23:40
0
Ответы
rethd
03.10.2020 09:16
Var
a:real;
Begin
write('Введите число ');
Readln(a);
if sqrt(a) = round(sqrt(a)) then write('YES') else write('NO');
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Eduardo0192837465
17.03.2020 13:36
Видеопамять делится на 3 страницы. Разрешающая дисплея - 1024*768.Вычислить объем видеопамяти, если битовая глубина равна 10.ответ заптсать в Кбайтах. ...
BlackWolf05
17.03.2020 13:42
Составить блок-схему алгоритма и программу для обработки массива из 20 чисел X = (0,3; 5; 69; –3; 52; –20; –9; –23; –9; 10; 36; 12; 15; 23; –0,2; –36; –0,3; 8; 45; –7) при b = –6...
marinaozerova3
18.05.2019 20:20
1)найдите сумму натуральных нечетных чисел не превышающих нужно сделать циклом for. 2) составьте программу,которая производит суммирование произвольного количества целых чисел вводимых...
VaReNiK37
26.06.2019 23:00
Найдите ошибку program percentage; uses crt; var a,b,c,d: real; begin writeln( , вас программа для нахождения процентов в огэ.искомую переменную обозначтье (0). ); write( введите...
bogdanostapenko
26.06.2019 22:50
Дано натуральное число n (n больше 9). найти цифру десятков в нём. например, для n = 4876 ответ- 7, для n- 19 ответ-1...
mmthe124
09.11.2020 13:05
Що таке табличний процесор? Яке його призначення? ...
baltika9
09.11.2020 13:05
Почему код num1 =int(input() num2 = num1 * 2 num3 = num1 * 3 num4 = num1 * 4 num5 = num1 * 5 print(num1, num2, num3, num4, num5,sep= --- ) не работает? все же вроде верно, подскажите...
llllll13
09.11.2020 13:04
Признаки классификация вычислительной техники ребят кто знает нужно ...
HastWay
28.07.2019 13:50
Куб с ребром 1м разделили на кубики с ребром 1 см и все эти кубики поставили в столбец. чему равна высота столбца ?...
sovuhe465
28.07.2019 13:50
Найдите корни уравнения. х^2 - 4х =0 ответ. 0 и 4...
Популярные вопросы
№1. какое из утверждений о топливно-энергетическом комплексе россии верно? 1)основная...
3
Укаких веществ наибольшая и наименьшая полярность связи: br2, hcl, hi, cacl2?...
2
Нужен качественный перевод этих словосочетаний. переводы из гугл переводчика...
3
1. расположите события смуты в хронологическом порядке а) второе ополчение б)...
3
Скорость автомобиля на 30 км/ч больше скорости мопеда, поэтому на путь в 120...
2
Какая орфограмма в слове о безьяна...
2
Длина нерастянутой пружины 5 см. под действием силы 5н удлинилась на 2мм. какова...
1
Перепишите предложения в пассивном залоге, начинающемся с данных слов. 1) you...
1
Каково место положения зоны деления корня? подскажите: *...
1
Іть : 72ц сіна коровам вистачить на 12 днів,а вівцям-на 24дні.на скільки вистачить...
2
a:real;
Begin
write('Введите число ');
Readln(a);
if sqrt(a) = round(sqrt(a)) then write('YES') else write('NO');
End.