Написать рограмму для вычисления суммы четных чисел от 1 до 20 в паскале с использованием циклов
eva170280
2
29.05.2019 22:20
1
Другие вопросы по теме Информатика
androp4ik1
08.03.2020 17:32
Ksyu130104
08.03.2020 18:49
laf03
08.03.2020 19:25
Lana8254
25.05.2019 03:10
Kto6to
25.05.2019 03:10
gawrilinamaria
25.05.2019 03:10
GoshaLLL
02.07.2019 22:00
Лама123
02.07.2019 22:00
dover2
02.07.2019 22:00
Популярные вопросы
- Треугольник авс прямоугольный (уголв =90°). точка о принадлежит...
2 - Бежин луг какие художественные средства использует автор для описания...
3 - Що ви розумієте під «спілкуванням? »...
1 - ответить на вопрос биологии 15 за рание !...
2 - Ф. м. достоевский глава из романа братья карамазовы - мальчики ....
3 - Синженерной графикойкак дочертить вид слева...
1 - 1. особенности ордена франциска и 2. особенности ордена доминика...
2 - Найдите все четырёхзначные числа, делящиеся на 36, у которых первая...
1 - 2. с целью привлечения покупателей компания «coca-cola» проводит...
3 - Окаких личностей древней руси можно сделать краткое сообщение, кроме...
2
var i,sum:integer;
begin
for i:=1 to 20 do
if i mod 2 = 0 then
sum:=sum+i;
writeln(sum);
end.
var i,sum: integer;
begin
clrscr;
sum:=0;
for i:=1 to 20 do
begin
if i mod(2)=0 then
sum:=sum+i;
end;
writeln ('sum=',sum);
readln ();
end.