Размер шрифта
A- A+
Межбуквенное растояние
Стандартное Среднее Большое
Цвет сайта
A A A A
Изоображения
Выкл Цвет ч/б
Дополнительно
Закрыть

Образец

    N единиц товара поровну распределены между 5 магазинами. Сколько единиц товара осталось на складе?

Program P1;
  Var n, x:Integer;
 Begin
   Write ('Единиц товара=');
   Readln(n);
   x:=n mod 5;
   Writeln('Ответ=', x)
 End.

Разделы сайта