Задать вопрос
17 февраля, 00:45

Напишите программу в Паскале

Среди всех двузначных чисел найти те, сумма цифр которых равна n (0

+1
Ответы (2)
  1. 17 февраля, 04:19
    0
    Var n, i:integer;

    begin

    readln (n) ;

    for i:=10 to 99 do

    if (i mod 10 + i div 10) = n then writeln (i) ;

    end.
  2. 17 февраля, 04:40
    0
    Var i, n: integer;

    begin

    readln (n) ;

    for i:=10 to 99 do

    if (i mod 10 + i div 10 = n) then

    write (i, ' ')

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Напишите программу в Паскале Среди всех двузначных чисел найти те, сумма цифр которых равна n (0 ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы