Вывести в порядке убывания трёхзначные числа кратные 12, подсчитать из количество и произведение на Pascal
Ответы
Ответ дал:
0
Ответ:
program Num12;
var
i, n, c: Integer;
p: Double;
begin
c := 0;
p := 1;
for i := 83 downto 9 do begin
n := i * 12;
Write (n, ' ');
Inc (c);
p := p * n;
end;
WriteLn;
WriteLn ('Количество = ', c);
WriteLn ('Произведение = ', p);
ReadLn;
end.
Вас заинтересует
4 месяца назад
4 месяца назад
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад