Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
turebekrasul
10.05.2023 16:02 •
Информатика
Pascal для начинающих. дано число с клавиатуры, если его квадрат больше чем утроенное, тогда вывести его на экран
Ответ:
babikovserega2
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 оценок)
Популярные вопросы: Информатика
муркот11
04.02.2023 00:06
.Определите значение переменной A после выполнения фрагмента программы: ( ) . Если a=8, b=3 *...
мария2081
04.12.2021 22:09
Что такое гиперссылка? напишите определение...
Смешарик111
02.08.2020 13:40
Хелп решите кроссворд очень...
polilol2018
15.07.2020 23:07
1. К какому виду информационных процессов относятся: а) структурирование информации; б) логические рассуждения ? Обоснуйте ответ....
zanunkyk
13.02.2020 16:39
2. Определите информационный объем слов «Казахстан», «Информация»....
evalissa17
17.01.2020 13:19
По информатике: дана строка с нечетным количеством слов.поставить в середину слово...
catnizamova
29.07.2021 10:22
Напишите сообщение различные виды памяти...
эрика95
21.05.2020 06:00
Определи, какому десятичному числу соответствует двоичный код 00110100...
qwerty54321
17.02.2023 22:27
Как перевести из фибоначиевой системы счисления в десятичную? объясните на примерах примеры: 10100, 10011, 10101, 100010, 11010...
kitty67
16.11.2020 14:24
H2s + hno3=h2 so4 + hno3 + h2o овр . ! +...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
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.