1. Информатика
  2. Вычислить сумму чисел кратных

Вычислить сумму чисел кратных трем из 10 введенных с клавиатуры

Агент271 Агент271    2   25.07.2019 21:20    0

Ответы
4549bk 4549bk  03.10.2020 13:00
Var
  s, n, i: integer;

begin
  for i := 1 to 10 do
  begin
    readln(n);
    if n mod 3 = 0 then
      s := s + n;
  end;
  writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
наташа6710 наташа6710  12.12.2020 06:09
Составить программу решения следующей задачи: (B1 - 16) * 2→ 0823 вычислительная техника...
ariadnaorekhova ariadnaorekhova  12.12.2020 06:08
1. Придумайте пример деятельности на основе каскадной модели 2. Назовите принципы успеха модернизации...
Damir2342 Damir2342  09.04.2020 18:30
Дана масса в килограммах – можно обозначит ее M. Написать программу, которая находит число граммов в этом числе килограммов и находит число центнеров в этом числе...
Sniper009902 Sniper009902  27.08.2019 13:30
Ато я не в очереди стоят мальчики и девочки. в начале каждой минуты, если за каким-то мальчиком стоит девочка, то он меняется с ней местами, пропуская ее вперед...
Марьяша16 Марьяша16  08.04.2020 17:21
Костя и Саша решили заранее узнать, какую оценку в четверти по информатике им выставит учитель. Костя в течение четверти получил три отметки, а Саша - четыре. Пользоваться...
sirushdarbinyap0aqdv sirushdarbinyap0aqdv  12.07.2019 05:30
Определите молекулярную формулу углеводорода, массовая доля углерода в котором – 0,8824, а водорода – 0,1176. относительная плотность паров этого вещества по воздуху...
driftsmuk1 driftsmuk1  12.07.2019 05:30
Двигатель совершил полезную работу равную 4.6* 10 4 степени кдж и при этом израсходовал 5 кг бензина.вычисли кпд этого двигателя...
sveronika00 sveronika00  12.07.2019 05:30
Как образовалось персидское государство?...
Lerkalerusya Lerkalerusya  12.07.2019 05:30
Test 42. read the text and put the verbs in brackets into the correct passive form. policeman shot dead in training a police officer has died after suffering a gunshot...
YarMax YarMax  12.07.2019 05:30
При скрещивании серебристых норок с коричневыми в потомстве появляются как серебристые, так и коричневые особи. определите генотип родительских форм....

Популярные вопросы