Рассчитать сумму четных натуральных чисел от 7 до n
RealPacani
3
10.10.2019 06:28
1
Другие вопросы по теме Информатика
nelya1184
23.08.2019 01:10
DarinaKim1
03.09.2019 20:20
phyf
12.01.2020 11:40
Анютка1456
26.05.2019 08:10
pragravra
26.05.2019 08:10
TatyanaMay
30.08.2019 08:30
9872105
30.08.2019 08:30
annaaristova
06.04.2020 09:26
кукушка139
06.04.2020 09:26
Популярные вопросы
- я понятия не имею как это делается ...
3 - нужно составить програму по картинке...
2 - символы нужны (для выставления во...
2 - В 1942–1943 годах на этом невысоком холме, называвшемся тогда Главной высотой...
1 - Почему образование семян- прогрессивный шаг эволюции?...
2 - Морфемний поділ слів:летіти,лечу, льотчик, політ...
1 - Які переваги барометрів-анероідів зумовили іх широке використання...
1 - ФИЗИКА АСТРОНОМИЯ 11 клас Чому дорівнює величина заряду , що створює електричне...
2 - Укажите предложение с грамматической ошибкой ( с нарушением синтаксической...
2 - Могут ли лица, не имеющие гражданства России иметь политические права,...
1
program Summa7;
var
n, i, s: Integer;
begin
Write ('N = ');
Readln (n);
s := 0;
for i := 7 to n do begin
if i mod 2 = 0 then
s := s + i;
end;
WriteLn ('Сумма четных чисел = ', s);
ReadLn;
end.