Отыскать сумму всех естественных чисел, четных, кратных 7 и наименьших 100.
Отыскать сумму всех натуральных чисел, четных, кратных 7 и наименьших 100.
Задать свой вопрос1 ответ
Александр Ионин
program zz1;
var b, i:integer; // задаем переменные целого типа
begin
i:=1; // задаем изначальное значение для параметра цикла
while i lt; 100 do // организуем цикл, пока параметр цикла не достигнет ста
begin
if (i mod 2 = 0) and (i mod 7 = 0) then b:=b + i; // проверяем, если число четное и кратное 7, то прибавляем число к сумме
i:=i + 1; // увеличиваем параметр цикла на единицу
end;
write( сумма всех естественных чисел, четных, кратных 7 и наименьших 100 = , b); // выводим ответ
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Я хочу найти решение и ответ для этой задачи и получить
Математика.
Здравствуйте
Меня зовут Виталий, я AdOps-аналитик компании Adfinity.pro
Заинтересовал ваш проект obrazovalka.com
Думаю сможем увеличить
Разные вопросы.
мне очень срочно нужно сочинение по рассказу экспонат номер по дной
Литература.
мне очень срочно нужно сочинение по рассказу экспонат номер по дной
Литература.
В семье из трех человек три электронных устройства: ноутбук, планшет и
Разные вопросы.
Жаркыраган кашка маш жаралгандан ашка маш табышмак жообу менен
Кыргыз тили.
За лето подруги прочитали 48 книг.Причем Оля прочитала в 3 раза
Математика.
Периметр равнобедренного треугольника ABC (AB=BC) равен 34 см. Периметр треугольника ABM,
Разные вопросы.
«Металлическая болванка, нагрета до 420C, охлаждается в воздухе, температура которого 20C,
Алгебра.
xdy=(x+y)dx, y(1) = 0. по условию Коши помогите решить
Алгебра.
Облако тегов