Question

Решите задачу на языке Pascal:


Задача: Найдите сумму двузначных чисел, которые делятся на сумму своих цифр.
Выведите эти числа и их сумму.​

Answer 1

Ответ:

var

 i, x, y, err, num: integer;

 s: string;  

begin

 num := 0;  

 for i := 10 to 99 do begin

   Str(i, s);  

   Val(s[1], x, err); Val(s[2], y, err);  

   if i mod x + y = 0 then begin num := num + i; Writeln('Число: ', i); end;

 end;

 Writeln('Сумма равна: ', num);

end.

Объяснение: