tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Составить программу,
Составить программу, позволяющую определить, имеет ли число, введённое с клавиатуры целый корень( через оператор if)
zver35
3 25.08.2019 15:40
0
Ответы
Данил30576
05.10.2020 19:07
Var a:real;
begin readln(a);
if frac(sqrt(a))=0 then write('Да')
else write('Нет');
end.
ПОКАЗАТЬ ОТВЕТЫ
naval2018
05.10.2020 19:07
Program s;
var i : integer;
begin
readln(i)
if frac(sqrt(i)) = 0 then write('Yes.')
else write ('No.');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
серик26
12.10.2020 21:45
Что такое операторы сравнения Каково назначение операторов сравнения 4 класс ...
Versysbatl
12.10.2020 21:51
4. Составьте программу для ввода массива из п элементов (n 5). Найдите среднее арифметическое всех элементов массива....
Малая1806
12.10.2020 21:56
I 3. Составьте программу для формирования списка фамилий учащихся.Вывести на экран фамилию учащегося под определённым номером.Введите количество учащихся: 5Введите фамилии:ИвановПетровСидоровСергееваАндрееваВведите...
александр383
20.07.2019 07:40
Составьте, , две программы на паскале : 1. составить программу a=b*c/d 2. составить программу: нахождение площади прямоугольника....
ваня1234456786
20.07.2019 07:40
Информатика.нарисовать алгоритм любого процесса 2 класс...
Ромчик55123
20.07.2019 07:40
Что такое графика и какие графики бывают...
Maks170104
06.05.2021 11:10
Задача: Переводчик.Известно, что на перевод одного листа текста переводчик затрачивает 40 минут. Сколько времени потребутся переводчику, чтобы перевести документ состоящий из...
АринаВарданян
06.05.2021 11:10
Исправить программу , чтобы выдавала 1 ответ. ответ 10270...
perminovdima20
28.04.2020 13:22
Памагите вот такие скини из за ские ченжера не могу решить драйвера новые кс переустанавливал...
egorilin1626hdhudn
28.12.2020 09:58
Интернет. Адресация в сети Интернет (IP-адрес). Система доменных имен. Технология WWW. Браузеры. Технологии интерактивного общения: форумы, чаты. Сетевое хранение данных. Облачные...
Популярные вопросы
Замість крапок у дужках напиши літери, якими закінчується першеслово й починається...
2
Every week I do some shopping in a big supermarket near the Hall of Residence....
1
заполните пропуски на фото! а затем след.пропуски по фото:(1) следует из _...
2
344⋅4−252:42. Результат первого действия . Результат второго действия . Результат...
3
1 чим країни змальовані у творі Джим Гудзик і машиніст Лукас відрізняється...
3
Більярдна куля під дією двох взаємно перпендикулярних сил 0,81 і 1,08H набуває...
2
Як пояснити наявність опору у провідників???...
2
Ход осуществления операций по выдаче наличных денег организации. Заявка от...
1
1. who … was informed about the crime? 2. his … so late surprised everyone...
3
Урок развития речи.Учимся редактировать текст.Ход урока.Постановка темы урока.Сегодня...
1
begin readln(a);
if frac(sqrt(a))=0 then write('Да')
else write('Нет');
end.
var i : integer;
begin
readln(i)
if frac(sqrt(i)) = 0 then write('Yes.')
else write ('No.');
end.