Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
stylestudionmovp557
10.11.2022 20:21 •
Информатика
Вводится целое число, если оно меньше либо равно 38, то вывести надпись "салют" , иначе подсчитать у=5х-38. сделать блок-схему и программу
Ответ:
hplss
05.10.2020 07:54
//прога на Pascal`e {бдок-схема в файле}
var
x: int64;
begin
write ('Введите целое число: ');
readln (x);
if x<=38 then write ('Салют') else write ('y = 5x-38 = ', 5*x-38);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
hilola378
17.03.2021 06:32
Найдите количество целых чисел на интервале [100; 25000], у которых сумма цифр в десятичной и пятеричной системах счисления одинаковые. в ответе укажите целое число...
Марьванна567
17.03.2021 06:32
Дана матрица целых чисел размером 5 на 6. сформировать одномерный массив, каждый элемент которого равен произведению четных положительных элементов соответствующего...
788SOS111
28.01.2021 18:08
Даны два неравных целых двухзначных числа. возвести в квадрат большее из этих чисел и удвоить меньшее число. написать программу для паскаль....
оки8
22.05.2020 23:24
Отдаю все бааллы ЛЕГКОЕ ЗАДАНИЕ...
dkfdshjdgss
26.01.2020 07:42
Напишите программу,которая преобразует строку,содержащую фамилию,имя и отчество человека,к форме инициалы фамилия С плюс...
1234567812445672676
09.04.2021 20:32
Напишите программу, которая 10 раз выводит на экран ваши имя и фамилию с...
Alien1712
13.10.2020 01:38
Произвести расчет среднего студентов группы средствами MS Excel. Посчитать общее количество полученных и определить у кого из студентов автомат. Посчитать количество...
Тёна333
19.06.2022 04:58
Напишите программу по следующему алгоритму:...
про739
21.10.2021 05:05
Здравствуйте, а будит ли сетевая игра в калофдюте модерн варфеер 2?...
egorkamarkov0
23.03.2020 16:11
Что такое роботизированная система. Приведите примеры....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var
x: int64;
begin
write ('Введите целое число: ');
readln (x);
if x<=38 then write ('Салют') else write ('y = 5x-38 = ', 5*x-38);
end.