Найти сумму первых 6 последовательных четных чисел по турбо паскалю
BOYKO10
1
29.03.2019 03:30
2
Другие вопросы по теме Информатика
YankaManky
19.09.2019 02:10
sane08one
19.09.2019 02:10
mironova161
19.09.2019 02:10
VanyaKEKEP
19.09.2019 02:10
kitti1936
25.02.2021 12:51
oaooks
26.05.2019 20:50
Morkvap5
26.05.2019 20:10
вероника20048
26.05.2019 21:00
Eennoottt
26.05.2019 20:08
Популярные вопросы
- Найдите и у значения выражений с подробным решением...
3 - Рассказ Платонова Возвращение Что имел в виду автора:возвращение с войны,возвращение...
2 - Треугольник KLM вписан в окружность, OK = 14 м Вычисли: ∢ LKM= ∪ML= ML=...
2 - умоляю Найдите ключ к тарабарской грамоте — тайнописи, применявшейся ранее...
2 - Складіть рівняння до схеми: Метан хлорметан етан етин етанол етанова кислота...
3 - Как на животных влияют компоненты биоценоза? Приведите 5 примеров. ...
2 - Е. Жүніс Менің атым - тәуелсіздік идеясы мен тақырыбы көмектесіндерші...
3 - 1.К какой языковой семье относится народ той местности где вы проживаете?...
2 - Отец и дочь. Рост дочери — 82 см. Каков рост отца (дочь вдвое ниже отца)?...
1 - Выполните морфологический разбор четырех местоимений по одному из каждого...
1
Т.к. нам не задан откуда будет отсчет 6 чисел, будет задавать пользователь.
var
a,i,s:integer;
begin
s:=0;
readln(a);
for i:=a to a+11 do begin
if (i mod 2)=0 then
s:=s+i;
end;
writeln(s);
end.