Question

напишите программу(паскаль) запрашивает с клавиатуры у пользователя размер хищений (р.), определяет и выводит на экран масштаб в соответствии с принятой классификацией (например, если размер хищений меньше 100 р. –«мелкий», от 100 до 1000 – «крупный», свыше 1000 – «особо крупный»

Answer 1

//PascalABC.NET 3.2 сборка 1318

Var
  a:real;
begin
readln(a);
if a<100 then
  writeln('Мелкий')
    else
      if (a>=100) and (a<1000) then
        writeln('Крупный')
          else
            writeln('Особо крупный');
end.

Пример ввода:
1001
Пример вывода:
Особо крупный

Answer 2

Конечно! Вот пример программы на языке Pascal, которая выполняет описанную вами задачу:

pascalCopy code
program РазмерХищений;

var
  размер: integer;

begin
  writeln('Введите размер хищений:');
  readln(размер);

  if размер < 100 then
    writeln('Мелкий')
  else if (размер >= 100) and (размер <= 1000) then
    writeln('Крупный')
  else
    writeln('Особо крупный');
end.

В этой программе мы используем переменную размер для хранения введенного пользователем значения. Затем мы проверяем условия с помощью операторов if и else if для определения масштаба хищений. Результат выводится на экран с помощью оператора writeln.

Обратите внимание, что в этой программе предполагается, что пользователь вводит только целочисленные значения для размера хищений.