Задать вопрос
9 июля, 10:02

Суммировать натуральные четные числа, пока сумма не превысит 200. Определить количество слагаемых.

Решить задачу циклом с предусловием.

+4
Ответы (1)
  1. 9 июля, 10:16
    0
    Var

    i, s:integer;

    begin

    i:=1; s:=0;

    while s<=200 do

    begin s:=s+i; Inc (i) end;

    Writeln ('В сумме, равной ', s,', количество слагаемых равно ', i-1)

    end.

    Результат выполнения программы:

    В сумме, равной 210, количество слагаемых равно 20
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Суммировать натуральные четные числа, пока сумма не превысит 200. Определить количество слагаемых. Решить задачу циклом с предусловием. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Если выполнения алгоритма заканчивается, когда условие цикла становится истинным, то он называется: 1) циклом с предусловием 2) бесконечность 3) циклом n-раз 4) циклом с постусловием
Нет ответа
Написать программу 4. Компьютер перебирает четные числа до тех пор, пока сума их квадратов не превысит S. Чему равна сумма квадратов? Подсказка: Начальное значение переменной цикла - 2. Шаг изменения - 2 (перебираем четные числа).
Ответы (1)
1. Какой тип данных может иметь параметр цикла? 2. В каких случаях при написании программ лучше использовать оператор цикла с предусловием? 3. В каких случаях цикл с предусловием может быть бесконечным? 4.
Ответы (1)
Среди всех трехзначных чисел найти кол-во четных, сумму и количество нечетных, произведение чисел кратных 3 1) используя цикл с предусловием 2) с циклом с переменной
Ответы (1)
Составить программу вычисления суммы всех натуральных чисел меньше 100 и кратных b (от1 до 100). Нужно составить 1 - с циклом с пред условием, 2 - с циклом с пост условием
Ответы (1)