Для четырёх произвольных чисел, введёных с клавиатуры, выведите на экран соответствующие результаты?

Irinamos78 22 июн. 2021 г., 08:41:27

Var a, b, c, d : integer ;

begin

writeln('Введите 4 числа : ') ;

readln(a, b, c, d) ;

if b * d mod 2 = 0

then writeln('b = ', b, ' d = ', d, ' ', b, ' * ', d, ' = ', b * d) ;

end.

Пример :

Введите 4 числа :

51 32 19 73

b = 32 d = 73 32 * 73 = 2336.

Fanisloko 18 янв. 2021 г., 19:08:02 | 5 - 9 классы

Введите с клавиатуры два числа : M и N?

Введите с клавиатуры два числа : M и N.

Если оба числа больше 100, то замените каждое из них меньшим и выведите результаты на экран.

Если первое число положительное, а второе отрицательное, то уменьшите их в два раза и выведите результаты.

Иначе, найдите и выведите среднее арифметическое этих чисел.

Vasya18 27 янв. 2021 г., 16:00:40 | 5 - 9 классы

С клавиатуры вводятся два целых числа?

С клавиатуры вводятся два целых числа.

Выведите ответ "да" если их произведение кратно 3.

В противоположном случае введите ответ "нет".

1239872 8 июн. 2021 г., 10:19:35 | 5 - 9 классы

Введите с клавиатуры число и выведите на экран сообщение о его знаке?

Введите с клавиатуры число и выведите на экран сообщение о его знаке.

ApcAk 16 апр. 2021 г., 06:07:38 | 10 - 11 классы

Паскаль?

Паскаль!

Помогите сделать введите с клавиатуры переменные х и у .

Если значение х положительно , а b - отрицательно, то найдите и выведите на экран их удвоенное произведение.

Иначе, найдите и выведите среднее арифметическое значение этих переменных.

Katyarozko 25 окт. 2021 г., 07:08:19 | 5 - 9 классы

Выведи на экран большее из двух данных чисел?

Выведи на экран большее из двух данных чисел.

Запиши программу на языке Паскаль, выведи ответ на экран, если1, 16505и2, 3468.

Vasilenkobekke 15 февр. 2021 г., 20:10:21 | 10 - 11 классы

Определите и выведите на экран произведение чётных чисел меньше 15?

Определите и выведите на экран произведение чётных чисел меньше 15.

Паскаль.

K0te 5 мар. 2021 г., 16:12:01 | 5 - 9 классы

Срочно?

Срочно!

Введите с клавиатуры три числа : А, В, С.

Если А>В>C>0, то замените все числа их квадратами и выведите результаты на экран.

Если они отрицательны и не равны между собой, то каждое число замените наибольшим из них и выведите результаты.

Иначе, найдите и выведите их сумму.

ПРОШУ!

ОЧЕНЬ НУЖНО!

Не из интернета желательно, ибо там везде написано не понятно.

Sergejjdenisov1s 25 дек. 2021 г., 14:33:57 | 5 - 9 классы

Помогите пожалуйста?

Помогите пожалуйста.

Срочно нужно

Введите с клавиатуры три числа : A, B, C.

ЕслиA>B>C>0, то замените все числа их квадратами и выведите результаты на экран.

Если они отрицательны и не равны между собой, то каждое число замените наибольшим из них и выведите результаты.

Иначе, найдите и выведите их сумму.

ПАСКАЛЬ.

Sushchin 30 июн. 2021 г., 21:47:26 | 5 - 9 классы

Выведите три числа?

Выведите три числа.

Выведите эти числа в обратном порядке, вычислите произведение и сумму этих чисел.

Язык программирования Паскаль АБС.

Помогите пожалуйста).

СинееНебо 24 нояб. 2021 г., 04:33:08 | 10 - 11 классы

Введите с клавиатуры три числа x, y, z?

Введите с клавиатуры три числа x, y, z.

Если числа равны, то увеличте их в три раза и выведите результат на экран.

Если равны только два последние числа то замените все числа на противоположные и выведите результаты.

Иначе все числа сделайте равными 222 и выведите результат.