Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
mobidik77
02.01.2022 05:19 •
Информатика
1. даны два числа. если оба кратны 3, то первое уменьшить в два раза. free pascal
Показать ответ
Ответ:
миланка20051
30.09.2020 19:00
Var a,b: real;
begin
readln(a,b);
If (a mod 3=0) and (b mod 3=0) then a:=a/2;
writeln(a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
anchobaby
22.10.2021 17:01
Переписать под паскаль абс.net дана строка, в которой содержится осмысленное текстовое сообщение. слова сообщения разделяются пробелами и знаками препинания. 1. вывести только...
BNN11
28.07.2020 11:29
Даны два большущих числа. проверьте, делится ли их произведение на девять. формат файла входных данных: в двух строках входного файла даны два целых неотрицательных числа, по...
vladkrikoff1
28.07.2020 11:29
Составить программу формирования динамического прямоугольного масси-ва а из n строк и m столбцов случайными числами, сделать возможным его ре-дактирование. вычислить суммы элементов...
sherlock0w
28.07.2020 11:29
Составить программу формирования массива а из n случайных вещественных чисел, сделать возможным его редактирование. вычислить сумму дробных частей положительных элементов массива....
Дэникс1
31.08.2020 15:40
Создайте программу, которая находит сумму чисел от 1 до 15....
NikolayTop
04.09.2022 06:54
Сколько раз будет выполнено тело цикла? а) for i in range(15): s = s + 1б) for i in range(10, 15): s = s + 1в) for i in range(-1, 1): s = s + 1г) for i in range(1, 1): s = s...
xalmatovr
26.01.2022 01:51
Анализ Сравните линейный алгоритм и алгоритм ветвления.При сравнении обратите внимание на следующее:принципы работы;- применение;— сложность;- отличия при составлении алгоритма....
V1ctoriaF0X
19.09.2020 19:48
Определи заполнения массива. randomize;fori:=1to10doa[i]:=random(58); 1)нет верного ответа 2)с оператора присваивания (случайными числами) 3)ввод каждого значения с клавиатуры...
mashA2007111
08.04.2022 19:05
Дан массив: a={2,9,5,8}. После сортировки массива (сортировка методом простого выбора) — порядок убывающий. Заполни таблицу....
Alinakamisarova
14.07.2021 09:08
Дано вещественное число – цена 1 кг конфет. Вывести стоимость 01, 02, … 1 кг конфет. Решить задачу используя пайтон...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var a,b: real;
begin
readln(a,b);
If (a mod 3=0) and (b mod 3=0) then a:=a/2;
writeln(a);
end.