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

Ввести число если оно четное разделить его на 4 если не четное умножить на 5

Ответ:

marina151987

31.07.2020 11:51

Pascal abc

0,0(0 оценок)

Ответ:

ЖаннаLife

31.07.2020 11:51

Var A : Integer;
Begin
Readln(A);
If Odd(A) then A:=A*5 else A:=A div 4;
Writeln(A);
end.

0,0(0 оценок)

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

Timewinter

01.01.2021 16:32

Реализовать программу на с++: Найти произведение целых чисел от m до n, кратных к. С цикла for и с цикла while(или do while). Выбор цикла while или do while зависит от алгоритма,...

sabegov1234

10.04.2022 13:03

Как читается данная запись w:=135...

accyxob

05.08.2021 00:11

Опишите структуру окна программы SketchUp...

GanDyrAS

13.02.2021 21:33

C++ определить количество элементов последовательности натуральных чисел, кратных m и заключенных в промежутке от l до n. (массивы)...

jezv

01.05.2022 22:46

Дан год. вывести на экран название животного, символизирующего этот год по восточному календарю с++...

Sindex212

14.12.2020 08:40

2. заполнить одномерный массив, состоящий из n элементов, числами, случайно выбранными из диапазона [a,b]. значение n описывается как константа, значения a и b с клавиатуры....

niagara4

09.07.2020 03:30

По информатике даны два действительных положительных числа . найти среднее арифметическое и среднее этих чисел. паскаль...

софика4

20.02.2020 09:58

Даны катеты прямоугольного треугольника. найти его гипотенузу и площадь . паскаль...

annaozerkevich

03.07.2021 19:02

Pascal.abc известна зарплата каждого из n работников фирмы за каждый месяц первого квартала (квартал – это три месяца). определить общую сумму, выплаченную за квартал всем...

Marina22111

29.10.2022 19:16

Pascal.abc найти все трёхзначные простые числа....

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

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