Question

Дано трёхзначное число.Найти:
а) число единиц в нем;
б) произведение его цифр

Answer 1

var

 n, c, a1, p: Integer;

begin

 Write ('Введите трехзначное число: ');

 ReadLn (n);

 if (n < 100) or (n > 999) then begin

   WriteLn ('Число не является трехзначным');

   Exit;

 end;

 a1 := 0;

 p := 1;

 while n > 0 do begin

   c := n mod 10;

   n := n div 10;

   if c = 1 then

     a1 := a1 + 1;

   p := p * c;

 end;

 WriteLn ('Количество единиц = ', a1);

 WriteLn ('Произведение цифр = ', p);

end.

Answer 2

в школьные кабинеты необходимо поставить по 32 стула. было закуплено N стульев.Сколько классов будет укомплектовано стульями ? сколько стульев осталось лишних ?

Answer 3

Я так понял, что в каждый из кабинетов нужно поставить по 32 стула. Правильно?

Answer 4

да

Answer 5

var
n, m, d: Integer;
begin
Write ('Введите количество закупленных стульев: ');
ReadLn (n);
d := n div 32;
m := n mod 32;
WriteLn ('Укомплектовано классов = ', d);
WriteLn ('Осталось стульев = ', m);
end.

Answer 6

спасибо