Войти Регистрация Спроси ai-bota

1. даны два числа. если оба кратны 3, то первое уменьшить в два раза. free pascal

Ответ:

MrRainClouD

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 оценок)

Популярные вопросы: Информатика

Препод007

20.03.2022 17:23

По таблице, приведенной в задании 2, постройте дерево, позволяющее изобразить все пути между 2 пунктами А и Д. Вычислите длину каждого пути. ( )...

anyakhrebtova

06.07.2022 03:03

даны предложения на русском языке.после двоеточия написан перевод каждого предложения на язык туземцев (слова даны в произвольном порядке). Составь фрагмент туземско-русского...

Ismailll

06.08.2022 10:41

Что не является операционой системой виндоус б)андроид в)mysql г)doc...

NastyaDND

23.11.2021 07:19

Автомат получает на вход четырёхзначное десятичное число. по полученному числу строится новое десятичное число по следующим правилам. 1. вычисляются...

maximp1699

06.01.2022 05:42

3найти количество отрицательных элементов каждого столбца матрицы х(5,6). результат записать в вектор к(6)....

нюра42

28.06.2022 07:34

На паскале ! определить количество посетителей салона, которых успеет обслужить мастер-стилист, если его рабочий день составляет t часов и известна продолжительность...

Yuki16

21.08.2020 07:17

составить и решить уравнение по задаче: Пшеницей засеяна в 2 раза большая площадь, чем рожью. Сколько засеяно пшеницей и сколько рожью, если участок пшеницы на 4 гектара...

KINGMe

21.08.2020 07:17

Какое количество энергии выделится, при охлаждении 800г водяного пара, до температуры 500С?...

233423

26.09.2021 03:52

Запиши x^18 в виде степени с показателем 2....

Zarxis

26.09.2021 03:52

Хтось може написати анкету головного героя з твору айвенго??...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку