Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
DruNastya
11.12.2020 12:19 •
Информатика
Определить делится ли на 5 введенное число x . если делится, то другому числу y присвоить 100 в противном случае у сделать равным 500 нужна программа на паскаль
Показать ответ
Ответ:
Mmmmmmlllll
05.10.2020 00:34
Var x,y: integer;
begin
write('Введите х ');
readln(x);
if (x mod 5 <> 0) then y:=500 else y:=100;
writeln('y=',y);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
невидимка789657
20.10.2022 23:33
Напишите метод, заменяющий в произвольной строке все вхождения слова «бяка» на «вырезано цензурой». На Java...
Ziri12
29.07.2020 14:33
Как подключить фотоаппарат nikon d3100 к компьютеру? ? диск который был в комплекте установила,там программа viewnx 2,всё установленно. но когда я подключаю usb кабель к компьютеру...
charykovavesna
29.07.2020 14:33
Вячейку а1 записана формула 2*$b4-c$1. какой вид приобретет если его скопировать в в3...
Abbal
04.04.2020 07:31
Вмассиве хранятся сведения о количестве осадков, выпавших за 10 дней июня. написать программу, которая определяет общее количество осадков за 10 дней. массив должен вводиться во...
haylayjonesty
04.04.2020 07:31
Составить алгоритм. найти площадь поверхности куба со стороной а...
tomirisestanova
04.04.2020 07:31
Что делает следующая программа? program whatlslt; var f: file of integer; i: integer; begin reset( f ); while not eof( f ) do begin read( f, i ); writeln( i ); end; close(f); end....
eraly2
28.09.2021 19:59
Дана последовательность: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 как это найти наибольшую и наименьшую разность между двумя соседними элементами?...
Brolik
28.11.2021 01:52
Сделай заключения на основании трех посылок. число 10 больше числа 7. число 7 на числовом луче расположено правее числа 5. число 5 больше чем число 3. число 3 числа10....
Нютик1823
01.08.2022 04:08
1. ученики перед поступлением в гимназию , и языки. проходной – 12. по для поступления нужно получить не менее 4 . составить отчет о поступлении. составим таблицу с исходными данными:...
VladimirOwl
03.09.2021 12:28
1дано трехзначное число. найти число, полученное при прочтении его цифр справа налево. паскаль 2 . дано трехзначное число. в нем зачеркнули первую слева цифру и приписали ее в конце....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
write('Введите х ');
readln(x);
if (x mod 5 <> 0) then y:=500 else y:=100;
writeln('y=',y);
end.