Задать вопрос
22 октября, 05:06

Ввести 30 двузначных чисел и вывести на экран те у которых сумма цифр меньше 10

+2
Ответы (1)
  1. 22 октября, 07:50
    0
    Program prog;

    uses crt;

    var a: array [1 ... 30] of integer;

    i: integer;

    begin

    clrscr;

    for i:=1 to 30 do

    begin

    write ('a[', i,'] = ') ;

    readln (a[i]) ;

    end;

    for i:=1 to 30 do

    begin

    if (abs (a[i]) mod 10) + (abs (a[i]) div 10) < 10 then

    write (a[i], ' ') ;

    end;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Ввести 30 двузначных чисел и вывести на экран те у которых сумма цифр меньше 10 ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
1. for + random a. вывести случайное количество случайных чисел b. вывести на экран 10 случайных чисел c. вывести на экран 10 случайных чисел, значение которых лежит в отрезке [0,10] d.
Ответы (1)
Паскаль. 1. вывести на экран все четные числа от 1 до n. 2. вывести на экран все трехзначные числа. 3. вывести на экран четырехзначные числа оканчивающийся на 7. 4. вывести на экран все трехзначные и двухзначные числа сумма цифр которых равна девяти.
Ответы (1)
1) Заполнить массив размером N целыми числами последовательно от 1 до N. Вывести его на экран. Найти сумму элементов массива и вывести ее на экран. 2) Заполнить массив размером N целыми числами последовательно от N до 1. Вывести его на экран.
Ответы (1)
Ввести с клавиатуры 2 числа a и b. Если a = b; вывести на экран "a = b". Если a > b; вывести на экран "a > b". Если a < b; вывести на экран "a < b".
Ответы (1)
через паскаль 1 ввести 3 числа, вывести наименьшее 2 ввести номер месяца, вывести название месяца 3 ввести 5 чисел, вывести в порядке убывания
Ответы (1)