Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
влада409
24.02.2022 07:27 •
Информатика
Составьте программу в паскаль абц увеличить число в 5 раз, если оно больше 3, во всех остальных случаях без изменения.
Ответ:
leshakonovalov2
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 оценок)
Популярные вопросы: Информатика
dashulyamikhay
01.05.2020 09:01
Напишите программу, которая суммирует все четные числа от 15 до 25, а для всех нечетных находит сумму квадратов этиз числех...
yulia398
01.05.2020 09:01
Исходное данное — трёхзначное число x. выполни для x=114 следующий алгоритм. a: =xdiv100 b: =xmod100 c: =xmod10 s: =a+b+c...
alinaskinAS
16.05.2020 13:26
Логическая функция f задаётся выражением (a → b) → (¬a ∧ c). определите, какому столбцу таблицы истинности функции f соответствует каждая из переменных a, b, c. ( во вложении)...
Helpmepleas17
30.07.2020 05:12
Напишите код программы (pascal)...
abramson228
28.02.2022 11:39
Главные герои сказки крупеничка н.д.телешов...
doncov2001
28.02.2022 11:39
Запишите все натуральные числа, которые больше 189.998 и меньше 190.003...
ккк134
28.02.2022 11:39
Какой из ниже перечисленного является интерпретируемым языком программирования? 1) c++ 2) erlang 3) php 4) go...
Dana1913
28.02.2022 11:39
Два 11 1) записать цифрами число двадцать миллиардов двадцать миллионов двадцать тысяч двадцать 2) сколько тысяч в миллионе...
bati9999
28.02.2022 11:39
Расположите числа в порядке возрастания 1. 2. 3. 4. 5....
vdyblenkoo
28.02.2022 11:39
6дм12мм+1м4дм+3м24см нужно превратить в миллиметры и решить по действиям. заранее !...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var x:integer;
begin
readln(x);
if x>3 then x:=x*5;
writeln(x);
end.