profile
Опубликовано 5 лет назад по предмету Информатика от 234242498iushfiauhsf

Паскаль. Дано натуральное число N. Найти и вывести все числа в интервале от 1 до N - 1, у которых СУММА ВСЕХ ЦИФР совпадает с СУММОЙ цифр данного числа. Если таких чисел нет, то вывести слово "нет".
Пример: N = 44. Числа: 17, 26, 35. хелпппппппппппп

  1. Ответ
    Ответ дан sfaleev197gmailcom
    не уверен может не работать.....
    var
    a,n,sn,s,i,n1:integer;
    begin
    readln(n);
    n1:=n;
    repeat
    sn:=sn+n1 mod 10;
    n1:=n1 div 10;
    until n1=0;
    for i:=1 to n-1 do
    begin
    a:=i;
    s:=0;
    repeat
    s:=s+a mod 10;
    a:=a div 10;
    until a=0;
    if s=sn then write(i,' ');
    end;
    readln;
    end.
    1. Ответ
      Ответ дан 234242498iushfiauhsf
      Спасибо))