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



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

[email protected] в категроии Информатика, вопрос открыт 21.05.2017 в 17:24

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

1 ответ



[email protected] , ответ добавлен 21.05.2017 в 17:29

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.

Оставлять ответы могут только авторизированные пользователи.
Зарегистрируйтесь или авторизируйтесь на сайте чтобы оставить ответ на вопрос.