Question

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

Answer 1

Да, конечно! Вот пример программы на Pascal, которая решает задачи, описанные вами:

program TaskSolving;

var
  userInput, result: integer;

begin
  // Задача 1
  writeln('Введите любое число:');
  readln(userInput);

if userInput mod 2 = 0 then
    result := userInput * 2
  else
    result := userInput + 1;

writeln('Результат задачи 1: ', result);

// Задача 2
  writeln('Сколько в 1 байте бит?');
  readln(userInput);

if userInput = 8 then
    writeln('Молодец!')
  else
    writeln('Повтори единицы измерения количества информации');

readln; // Ждем, чтобы консольное окно не закрывалось сразу
end.

Как работает программа: 1. Пользователю предлагается ввести число. Программа проверяет, четное оно или нет, и соответственно умножает его на 2 или прибавляет 1. 2. Пользователю предлагается ответить на вопрос о количестве бит в 1 байте. Если введенное число равно 8, выводится сообщение "Молодец!", иначе выводится "Повтори единицы измерения количества информации".