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

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

var n:integer;beginreadln(n);if n.IsEven then n:=n*2else inc(n);writeln(n);end.==========================var n:integer;beginwriteln('Сколько в 1 байте бит?');readln(n);if n=8 then writeln('Молодец!')else writeln('Повтори единицы измерения количества информации');end.