Блог для маленьких школьников и их родителей
ШколаЛа

Решите задачу на языке Pascal: Задача: Найдите сумму двузначных чисел, которые делятся на сумму своих…

Автор:
Предмет: Информатика
Уровень: 5 - 9 класс

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

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

Ответов к вопросу: 1
  • cactus7
    14.06.2024 | 22:40

    Ответ:
    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.
    Объяснение:

Ответить на вопрос:
:p :-p 8) 8-) :lol: =( :( :-( :8 ;) ;-) :(( :o:
Нажимая на кнопку я даю согласие на обработку персональных данных и принимаю политику конфиденциальности.