Nogy
6 год назад
Напишите программу(паскаль) запрашивает с клавиатуры у пользователя размер хищений (р.), определяет и выводит на экран масштаб в соответствии с принятой классификацией (например, если размер хищений меньше 100 р. –«мелкий», от 100 до 1000 – «крупный», свыше 1000 – «особо крупный»
ОТВЕТЫ
Иустинович
Jul 7, 2019
//PascalABC.NET 3.2 сборка 1318
Var
a:real;
begin
readln(a);
if alt;100 then
writeln(Мелкий)
else
if (agt;=100) and (alt;1000) then
writeln(Крупный)
else
writeln(Особо крупный);
end.
Пример ввода:
1001
Пример вывода:
Особо крупный
Var
a:real;
begin
readln(a);
if alt;100 then
writeln(Мелкий)
else
if (agt;=100) and (alt;1000) then
writeln(Крупный)
else
writeln(Особо крупный);
end.
Пример ввода:
1001
Пример вывода:
Особо крупный
36
