Question

СРОЧНО ХЕЛП!!!!!Напишите программу для решение задачи с клавиатуры вводится целое число от 1 до 99 если число2-значное ,то вывести кол-во десятков в числе,иначе вывести введенное число увеличенное на 1 с помощью dif и mod Paskal

Answer 1

Var a: integer;
begin
readln(a);
if (a div 10 = 0) then
writeln(a+1)
else
writeln(a div 10);
end.

Answer 2

Конечно, давайте напишем программу на языке Pascal, которая решает задачу:

program SolveProblem;

var
  inputNumber: integer;

begin
  // Вводим целое число от 1 до 99
  write('Введите целое число от 1 до 99: ');
  readln(inputNumber);

// Проверяем, является ли число двузначным
  if (inputNumber >= 10) and (inputNumber <= 99) then
  begin
    // Если число двузначное, выводим количество десятков
    writeln('Количество десятков в числе: ', inputNumber div 10);
  end
  else
  begin
    // Если число однозначное, увеличиваем на 1 с использованием div и mod
    inputNumber := inputNumber + 1;
    writeln('Введенное число увеличено на 1: ', inputNumber);
  end;

readln;
end.

В этой программе мы используем условный оператор `if-else`, чтобы проверить, является ли введенное число двузначным. Если да, то выводим количество десятков, используя операции `div` (деление нацело). Если число однозначное, то увеличиваем его на 1 с использованием операторов `+` и `mod` (остаток от деления).