fedrfedr
Я так понял, что в каждый из кабинетов нужно поставить по 32 стула. Правильно?
fedrfedr
var n, m, d: Integer; begin Write ('Введите количество закупленных стульев: '); ReadLn (n); d := n div 32; m := n mod 32; WriteLn ('Укомплектовано классов = ', d); WriteLn ('Осталось стульев = ', m); end.
Answers & Comments
Verified answer
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.
n, m, d: Integer;
begin
Write ('Введите количество закупленных стульев: ');
ReadLn (n);
d := n div 32;
m := n mod 32;
WriteLn ('Укомплектовано классов = ', d);
WriteLn ('Осталось стульев = ', m);
end.