Ответ:
Очень странно: какие это двузначные числа, сумма которых равна 10????? Может, сумма цифр равна 10? Pascal:
var
i: integer;
begin
for i := 10 to 99 do
if ((i div 10) + (i mod 10) = 10) then
WriteLn(i, ' - сумма цифр равна 10');
if ((i mod 2) = 1) then
WriteLn(i, ' - нечетное число');
end;
end.
Объяснение:
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
Очень странно: какие это двузначные числа, сумма которых равна 10????? Может, сумма цифр равна 10? Pascal:
var
i: integer;
begin
for i := 10 to 99 do
begin
if ((i div 10) + (i mod 10) = 10) then
WriteLn(i, ' - сумма цифр равна 10');
if ((i mod 2) = 1) then
WriteLn(i, ' - нечетное число');
end;
end.
Объяснение: