Написать программу вычисления суммы всех четных чисел в диапазоне от 1 до n (используя repeat)
liza20038333
2
23.04.2019 04:50
1
Другие вопросы по теме Информатика
АннаФайна
07.12.2019 18:49
Malayalam
07.12.2019 18:55
Luuunar
07.12.2019 19:02
мопс22
23.06.2019 14:10
фракталы
08.09.2019 18:53
образец
23.02.2020 14:16
razdor1996Rqzdor
18.09.2019 23:10
ЭТИРУКИЛОЛ
18.09.2019 23:10
Популярные вопросы
- Поезд ехал со скоростью 65 км/ ч, а потом проехал 80 км/ч за час....
3 - Мини сочинение на тему я петербуржец 6 класс спб...
3 - Характеристика западной сибири по плану: 1.- положение. 2.природные...
2 - Найдите значение выражения 15,8-3,1 x при x=1,4...
3 - 5в пятой степени все это во второй степени разделить.на 25 и.умножить...
1 - 20б начертите координатный луч и отметьте на нем точки: а) а (0),...
2 - Величественный разбор слова как часть речи...
3 - Перевод на язык. я прочитала 5 интересных книг я посмотрела много...
2 - Ученик в первый день прочитал 25% всей книги, во второй -60% остатка,...
2 - Сходства и различия древнеримской и древнегреческой...
2
program repeater;
var n,s,i:Integer;
begin
n := 10;
s := 0;
i := 0;
repeat
s := s + i;
i := i + 2;
until i > n;
writeln(s);
end.