Тестовые значения n=100,a=1
По идеи должен вывести все числа от 2 до 100, так как сумма их цифр не изменится при умножение на 1...но почему то выдаёт 2,9 (((
Ещё незнаю куда сунуть вот это zp2:=s1*a; так как если внутрь цикла ставить то каждый раз будет умножаться сумма на число (а)
Program otrezok;
Var n,a,i,s1,s2,zp1,zp2,k:integer;
Begin
write('Введите число N ');readln(n);
write('Введите число A ');readln(a);
s1:=0;s2:=0;
For i:=2 to n do
Begin
zp1:=i;
While zp1<>0 do
Begin
s1:=s1+(zp1 mod 10);
zp1:=zp1 div 10;
zp2:=s1*a;
end;
While zp2<>0 do
Begin
s2:=s2+(zp2 mod 10);
zp2:=zp2 div 10;
if s1=s2 then begin write(i, ',');k:=k+1;end;
end;
End;
writeln('Всего таких чисел= ',k);
readln;
End.
Сообщение отредактировано: Artem7 -