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

Найти сумму чисел, кратных трем в диапазоне от 0 до 50

Unicorn536 Unicorn536    2   10.07.2019 16:10    8

Ответы
lizadobhliwdf lizadobhliwdf  17.09.2020 13:26
Var k,sum:integer;
begin
sum:=0;
for k:=0 to 50 do
if(k mod 3 =0) then sum:=sum+k;
writeln(sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
aalbina707 aalbina707  19.10.2020 10:56
Запишите дополнительный кот числа - 83​...
petrakovatatya petrakovatatya  01.06.2019 16:30
Для какого из чисел x логическое условие истинно? ((x 15) /\ (2∙x 23)) → ((x 14) /\ (x 15)) 1)11 2)12 3)13 4)14 ,с объяснением!...
ZiGZaG4242 ZiGZaG4242  18.07.2019 13:10
Даны множества a = {0, 1, 4, 5, 6} и b = {0, 5, 6}. тогда для этих множеств верны высказывания …...
kekocikkkkk kekocikkkkk  31.08.2019 05:40
Ввести с клавиатуры несколько чисел,вычислить сумму чисел оканчивающихся на 4 pascal...
ученик445643 ученик445643  07.12.2020 22:02
Написать сочинение на тему С.Григорьев. вратарь (с деепричастиями) ​...
5rv 5rv  07.12.2020 22:02
Написать характеристику серной кислоты Тип химической связи- Молярная масса- Характеристика кислоты: 1) По наличию кислорода- 2) По основности- 3) По растворимости- 4) По степени...
iraermila iraermila  07.12.2020 22:02
Из этого лёгкие предложения, как пересказ , но на английском​...
Lis25pfi174 Lis25pfi174  07.12.2020 22:02
Кто ваш краш из НарутоМоя Киба и Неджи​...
natalivkartoyqc3v natalivkartoyqc3v  07.12.2020 22:02
Какое мнение паратова о женщинах?...
bmelana bmelana  07.12.2020 22:02
Значение романа Что делать? для мировой литературе​...

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