< >

найти сумму чисел от 50 до 100, кратных 2 и 3.

турбо паскаль!

Ответы

Ответ дал: sansanic
0

var

  i, s: integer;

 

begin

  s:= 0;

  for i:= 50 to 100 do

    if (i mod 2 = 0) and (i mod 3 = 0) then s:= s + i;

  writeln(s);

  readln;

end. 

Похожие вопросы
Русский язык
2 года назад
ветер(что делает?)дует-сквозит_ и еще нужен один ответ
Русский язык
2 года назад
Дерево- разобрать  слово по подежам))   помогите плиз)
Литература
7 лет назад
СРОЧНО!ПОЖАЛУЙСТА!! Надо сочинить сказку по плану.5 класс 1.Предписание 2.Нарушение 3.Вредительство 4.Отъезд героев 5.Задача 6.Встреча с дарителями 7.Появление противника 8.Борьба 9.Победа
Математика
7 лет назад
Помогите решить задачу
Математика
10 лет назад
Для прокладання електропроводки придбали 1200 м дроту. 12 мотків дроту, по 60 м у кожному мотку, витратили на внутрішню проводку, 3/5 решти дроту пішло на зовнішню проводку. Скільки дроту пішло на
Химия
10 лет назад
запишите уравнение реакции,позволяющих осуществвить следующие превращение    FeCl2<------FeO---->FeSO4                                     это сртелка к FeO -----Fe----->эта стрелка к FeSO4
Геометрия
10 лет назад
точка К не лежит в плоскости ромба ABCD. известно, что КB перпендикулярно BD и AB. Докажите, что прямая AC перпендикулярна к плоскости KBD. ВЕрно ли, что прямая BD перпендикулярна к плоскости KAC?
Геометрия
10 лет назад
Две стороны треугольника равны 3 и 8 а угол между ними равен 30 градусам. Найти площадь треугольника