Uses crt;
var i:integer;
begin
for i:=100 to 999 do
if ((i mod 10)<>(i div 100)) and ((i mod 10)<>(i mod 100 div 10)) and
((i div 100)<>(i mod 100 div 10)) then writeln(i);
end.
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var a:=ReadInteger('Яблок было');
var d:=ReadInteger('Детей гуляло');
Writeln('Каждый получил яблок: ',a div d);
Writeln('На компот пошло яблок: ',a mod d)
end.
<u><em>Тестовое решение:</em></u>
Яблок было 37
Детей гуляло 7
Каждый получил яблок: 5
На компот пошло яблок: 2
ФУНКЦИЯ mod вычисляет остаток от деления. Если одно целое делится без остатка на второе, то оно кратно второму. Следовательно, верен ответ с.
3) Получение. Когда читаем что-либо мы получаем информацию.