1./Вводится любое число с клавиатуры. Если оно четное помножить его на

Question

1./Вводится любое число с клавиатуры. Если оно четное помножить его на

1./Вводится любое число с клавиатуры. Если оно четное умножить его на 2, иначе прибавить 1. Полученное число вывести на экран.

2./На экране выводится извещенье Сколько в 1 байте бит? Если вводится правильное число, то на экране выводится известие Молодец!, по другому Повтори единицы измерения количества инфы.
ПАСКАЛЬ

Задать свой вопрос

Nadezhda Tydman
Информатика
2019-03-22 23:09:39
0
1

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

Задание на фото. Буква quot;бquot;. Решите. Не могу уменьшить вторую дробь

Нужна безотлагательно помощь!

Как жил средний человек в Старом Риме? Чем занимался, когда пробуждался,

На какой глубине давление воды в море сочиняет 400кПа (плотность морской

Маме подарили телефон. У меня зазвонил телефон. Мастер длинно чинил телефон.

зачёт по теме линейная функция и её график

ПОМОГИТЕ!!choose the corect prepositoins. 1. I usually go to school with

Окунавать как проверить наБарахтался как проверить бНесколько как проверить 2 оШлепков

роль физики в формировании научной картины мира

Starostina Olga · Answer 1 · 2019-03-22 23:16:48+3:00

var
n:integer;

begin
readln(n);
if n.IsEven then n:=n*2
else inc(n);
writeln(n);
end.

==========================
var
n:integer;

begin
writeln('Сколько в 1 б бит?');
readln(n);
if n=8 then writeln('Молодец!')
else writeln('Повтори единицы измерения количества инфы');
end.

О проекте

1./Вводится любое число с клавиатуры. Если оно четное помножить его на

Добро пожаловать!