Question

Вывести на экран двузначные числа и их количество, у которых при умножении на 2 сумма цифр увеличивается на 5. Через цикл for нужно решить

Answer 1

program proga;var i, m, k, s1, s2:integer;beginfor i:=10 to 99 do begin m:=i;s1:= m mod 10 + m div 10;k:=i*2;s2:= k mod 10 + k div 10;if (s2 - s1 = 5) then write(i, ', '); end;end.

Answer 2

program proga;
var i, m, k, s1, s2:integer;
begin
for i:=10 to 99 do begin
m:=i;
s1:= m mod 10 + m div 10;
k:=i*2;
s2:= k mod 10 + k div 10;
if (s2 - s1 = 5) then write(i, ', '); end;
end.

Answer 3

так красивее)