Статистика
Всего в нашей базе более 4 327 660 вопросов и 6 445 973 ответов!

Написать программу в Паскале, которая вычислит все двузначные числа,сумма цифр которых равна 12. Только , как можно проще. Алгоритм вычисления пожалуйста

5-9 класс

пришлите.

Sonyaven 10 янв. 2015 г., 9:23:51 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Зайкаsuper
10 янв. 2015 г., 12:08:23 (9 лет назад)

Var
      a,a1,a2:integer;
Begin a:=10;
 Write('Двузначные числа, сумма цифр которого равна 12: ');
 while a<100 do
    begin
     a1:=a mod 10;
    a2:=a div 10;
      if (a1+a2)=12 then write(a,', ');
         a:=a+1;
    end;
End.


Ответить

Читайте также

Помогите написать программу на Паскале.

Напишите программу, которая в последовательности целых чисел
вычисляет сумму всех чисел, которые кратны 6 или 11. Программа получает на вход
целые числа, количество введённых чисел неизвестно, последовательность чисел
заканчивается числом 0 (0 – признак окончания ввода, не входит
в последовательность).

Количество чисел не превышает 1000. Введённые числа по
модулю не превышают 30 000.

Программа должна вывести одно число: сумму всех чисел,
которые кратны 6 или 11.






НАПИСАТЬ ПРОГРАММУ В ПАСКАЛЕ

составить программу которая вычисляет суммы элементов столбцов двумерного массива и записывает их в одномерный массив

1)найти сумму первых k последовательных нечетных чисел. написать программу в паскале. 2)вывести на экран натуральные нечетные числа от 5 до 55.тоже

паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль



Вы находитесь на странице вопроса "Написать программу в Паскале, которая вычислит все двузначные числа,сумма цифр которых равна 12. Только , как можно проще. Алгоритм вычисления пожалуйста", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.