Question

Информатика 8 класс паскаль написать текст: двузначное положительное целое число, если меньше 20 - находим сумму цифр,иначе ничего с рим не делаем ​

Answer 1

var

n : integer;

begin

readln(n);

if n < 20 then

   writeln(n mod 10 + n div 10);

end.

Answer 2

Давайте напишем программу на языке программирования Паскаль, которая выполняет описанные вами шаги. Программа будет принимать двузначное положительное целое число, проверять его на условие (меньше 20 или нет) и, в зависимости от результата, либо находить сумму его цифр, либо ничего не делать.

program TwoDigitNumber;

var
  inputNumber, digit1, digit2, sum: integer;

begin
  // Ввод двузначного числа
  write('Введите двузначное положительное целое число: ');
  readln(inputNumber);

// Проверка на двузначность и положительность
  if (inputNumber >= 10) and (inputNumber <= 99) then
  begin
    // Разбиваем число на цифры
    digit1 := inputNumber div 10;
    digit2 := inputNumber mod 10;

// Проверка на условие (меньше 20 или нет)
    if inputNumber < 20 then
    begin
      // Находим сумму цифр
      sum := digit1 + digit2;
      writeln('Сумма цифр числа ', inputNumber, ' равна ', sum);
    end
    else
    begin
      writeln('Число ', inputNumber, ' не меньше 20, поэтому ничего не делаем.');
    end;
  end
  else
  begin
    writeln('Введено неверное число. Пожалуйста, введите двузначное положительное целое число.');
  end;

readln;
end.

Программа сначала запрашивает у пользователя ввод двузначного положительного целого числа. Затем она проверяет, соответствует ли введенное число условиям (двузначное и положительное). Если условия выполняются, программа разбивает число на цифры, проверяет условие (меньше 20 или нет) и выводит соответствующий результат. Если введенное число не соответствует условиям, программа выдает сообщение об ошибке.