Задать вопрос
24 декабря, 19:46

Решить задачу на языке программирования Pascal:

Найти сумму натуральных четных чисел в промежутке от 1 до 13. Если эта сумма больше 15, вывести сообщение "Много!", в противном случае вывести сообщение "Мало!".

+3
Ответы (1)
  1. 24 декабря, 20:32
    0
    Var

    a : array [1 ... 100] of longint;

    sum, i : longint;

    begin

    sum:=0;

    for i:=1 to 13 do begin readln (a[i]) ; sum:=sum+a[i]; end;

    if sum>15

    then writeln ('Много')

    else writeln ('Мало') ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Решить задачу на языке программирования Pascal: Найти сумму натуральных четных чисел в промежутке от 1 до 13. Если эта сумма больше 15, ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Отметьте истинные утверждения о языках программирования: 1). Языки программирования бывают универсальными и специализированными. 2). Язык программирования Python - универсальный язык программирования. 3).
Ответы (1)
1) Вычислить длину окружности и площадь круга одного и того же заданного радиуса R. Pascal (желательно с блок-схемой) 2) Найти сумму членов арифметической прогрессии, если известны её первый член, знаменатель и число членов прогрессии Pascal
Ответы (1)
Помогите решить задачу на языке программирования Pascal abc. Дано два числа x и y. Найти произведение этих чисел, если выполняется условие x
Ответы (1)
Задание: 1) Перечислить виды циклов. 2) Конструкция цикла с параметром на языке программирования Pascal. 3) Известно ли число повторений в цикле с параметром? 4) Если известно, то указать формулу, по которой можно определить число повторений.
Ответы (1)
Задачи на алгоритмическом языке или любом языке программирования. 1. Найти частное двух чисел. 2. Даны 3 числа. Если их произведение меньше 50, то числа увеличились в 10 раз, в противном случае вывести произведение
Ответы (1)