Написать программу: подсчитать сумму двузначных четных чисел в диапазоне заданном...

Question

Написать программу: подсчитать сумму двузначных четных чисел в диапазоне заданном пользователем. Используя оператор REPEAT!!!!!

Answer 1

Для наглядности и простоты проверки оставил вывод слагаемых:

Var S,a,b:integer;
Begin
WriteLn('Сумма нечётных двузначных чисел в [a,b]');
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
S:=0;
if a mod 2 = 0 then a:=a+1;
if a < -10 then
   Begin
   if a < -99 then a:=-99;
   Repeat
   S:=S+a;
   WriteLn(a);
   a:=a+2;
   Until (a>-11)or(a>b);
   a:=11;
   End;
if (b>10)and(a<100) then<br>   Repeat
   S:=S+a;
   WriteLn(a);
   a:=a+2;
   Until (a>99)or(a>b);
WriteLn('S = ',S)
End.

Comments

Сумма нечётных двузначных чисел в [a,b]
a = 75
b = 90
75
77
79
81
83
85
87
89
S = 656

---

На Pascal ABC:

---

Сумма нечётных двузначных чисел в [a,b]
a = 13
b = 38
13
15
17
19
21
23
25
27
29
31
33
35
37
S = 325

---

все

---

разобрался

---

Спасибо)))

---

можете еще сказать как в Репите в цикле простое число записать

---

??

---

Чтобы выводила все простые числа

---

Вы уже выложили задание - видел. Будет не лень - сделаю