Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
budarnyypetr
19.01.2020 14:58 •
Информатика
Составьте программу в паскаль абц увеличить число в 5 раз, если оно больше 3, во всех остальных случаях без изменения.
Ответ:
CCybermann
01.10.2020 11:15
Program 123;
var x:integer;
begin
readln(x);
if x>3 then x:=x*5;
writeln(x);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
pavelakur
27.03.2021 17:42
Як зробити winlocker на python?...
vsviridov08p06zai
20.04.2021 05:58
На единственный вход черного ящика числа 1,10,11.на единственном выходе образуются соответственно числа: 1,1,2.что происходит внутри ящика? а)умножение числа на себя;...
fox370
12.09.2021 02:21
Бросают симметричную четырехгранную пирамидку. какое количество информации несет сообщение о ее падении на одну из граней?...
Dragolord
26.04.2021 07:26
Продолжите последовательность чисел -7,3,5,21 выписав числа через пробел...
садагат2
09.07.2021 21:39
Что необычного в симфониях бетховина?...
asino20145
29.12.2021 11:47
Стандартный прут арматуры имеет длину 11м 70см. требуется разрезать его на длинные и короткие куски длиной 1м 10см и 70см соответственно. при этом длинных кусков должно...
Boom11ok
12.08.2020 07:07
Сочинение что объединяет рассказы чехова хамелеон и смерть чиновника...
akerkeserikbai
12.08.2020 07:07
Написать доклад о древних городах руси...
LetovSup
16.04.2022 20:31
Решить уравнение 7x/6=49/14 и 3/14=21/2(x+31) где / это дробь ...
errreir
14.03.2020 15:15
Найдите x: 1) -x = 15 4/7 2) -x = -0,8 3) -x = 4 1/3 4) -х = 5/6 - 1/9 5) -х = 7,2 6) -х =3/8 + 1/6 !...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var x:integer;
begin
readln(x);
if x>3 then x:=x*5;
writeln(x);
end.