Среди двузначных чисел найти те, которые делятся на число q, а сумма тех цифр равна n ( 0
Среди двузначных чисел найти те, которые делятся на число q, а сумма тех цифр равна n ( 0
Гость
Ответ(ы) на вопрос:
Гостьvar i, q, n : integer;
begin
read(q, n);
for i:=10 to 99 do
if ((i mod q = 0) and (i div 10 + i mod 10 = n)) then
write(i, ' ');
end.
Не нашли ответ?
Похожие вопросы