Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
BamakoProfile
04.03.2021 21:30 •
Информатика
Pascal для начинающих. дано число с клавиатуры, если его квадрат больше чем утроенное, тогда вывести его на экран
Показать ответ
Ответ:
айрат36
08.10.2020 21:33
Вот держи:
program abc;
var a: integer;
begin
writeln ('Vvedite chislo: ');
readln(a);
if (a*a > 3*a) then writeln ('a = ', a)
else write ('Ne podhodit');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
tupoeMango
25.12.2020 16:06
Открой программу MS Excel. Введи данные в столбец A, начиная с ячейки A1: кефир, шорох, ёлка, борщ, эвакуатор. Выполни сортировку в алфавитном порядке. После выполнения...
marinalebedeva5
19.02.2022 23:05
Как выполняется моделирование...
nikolottorres
28.01.2023 05:09
Найти сумму целых положительных чисел, больших 20 и меньших 60?)...
perrrii
29.10.2022 06:54
Компилятор в паскале пишет: строка 18 нет перегруженной подпрограммы с такими типами параметров program shifr; var s1,s2: string; i,n,k,p: integer; key: integer; //ключ...
vladisnal2
20.04.2022 22:53
Задача в скриншоте ниже...
gurulezz1257
27.07.2022 14:08
Условие задания:Упрости и запиши верный ответ.K&B V K&Bответ:|...
Анастасия4487
08.02.2022 23:58
(x 16)&(x 15) для числа х =3...
бабушка111111
29.10.2022 23:55
До ть.Три приклади використання комунікаційних технологій у житті....
sembaevam
04.08.2020 08:07
Чтобы выделить фрагмент звука, нужно: Верных ответов: 2 с нажатой левой кнопкой мыши выделить фрагмент указателем мыши, начиная от его начала и до его конца с нажатой...
livadin3105
03.05.2023 16:28
Какие узлы являются предками узла Д?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
program abc;
var a: integer;
begin
writeln ('Vvedite chislo: ');
readln(a);
if (a*a > 3*a) then writeln ('a = ', a)
else write ('Ne podhodit');
end.