Используя цикл while, напишите программу определения суммы всех чётных чисел от 5 до 200 включительно.
aylinafedorovaoyhkfx
1
26.04.2020 21:54
0
Другие вопросы по теме Информатика
elenamatveeva3
28.01.2021 12:17
SpottedJay
28.01.2021 12:16
Aryzhaн
28.01.2021 12:16
lemon234
24.11.2020 13:06
Dina333098
24.11.2020 13:06
Герман10111
05.06.2019 13:40
Rasul101231
05.06.2019 13:40
vladavlada60
08.10.2019 06:10
timofeierofeev
08.10.2019 06:10
natali030303nat
08.10.2019 06:10
Популярные вопросы
- Какие лошади представляют то, что мы можем видеть и чувствовать? а) определенные...
2 - Вычислить объем воздуха который потребуется для сжигания 30 л этиламина. Объёмная...
3 - Сравнение двух стран Европы...
1 - Приклади гуморального впливу на діяльність нервової системи...
1 - Очень нужна буду очень благодарна! ...
2 - Составить интервью между журналистам и Т.Әубәкірова на тему Казакстан – Байканур-...
3 - Яким є зв язок між імунною й нервовою регуляцією під час боротьби з інфекцією?...
1 - с английским Task 1. Listen to the dialogue and fill in the missing words. Прислушайтесь...
1 - Задание1 Высоко на небе жила красавица Луна. В её серебристых лучах купались Звёзды,...
1 - Найдите круг сходимости для степенного ряда....
3
var
i,sum:integer;
begin
sum:=0;
i:=5;
while i<=200 do
begin
sum:=sum+i;
i:=i+2;
end;
writeln ('Summa: ',sum);
end.