Отыскать сумму всех естественных чисел, четных, кратных 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.

 

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт