Народ, пожалуйста помогите! Язык Free Pascal 1) Найти сумму всех трехзначных чисел...

Question

Народ, пожалуйста помогите! Язык Free Pascal
1) Найти сумму всех трехзначных чисел кратных трем.
2) Вывести все двузначные нечетные числа в столбец.
например: 10
12

Comments

10 и 12 разве нечетные числа?

---

учитель так написала, я не заметила

---

тогда имелось ввиду вывести все двузначные ЧЕТНЫЕ числа

---

нет, выведите нечетные, не обращая внимания на пример

---

пожалуйста

Answer 1

Я так понял что программы тебе нужны в таком виде !!!
Program prog1;
var i: integer;sum: real;
begin
sum:=0;
repeat 
i:=i+1;
 if (i mod 3=0) then sum:=sum+i;
 until (i>100) and (i<1000);<br>writeln('Сумма= ',sum);
end.
2)
Program prog2;
var i: integer;
begin
i:=10;
repeat
i:=i+1;
 if (i mod 2<>0)then writeln(i);
 until i>=100;
end.

Answer 2

1)
Program n1;
var i: integer;
sum: real;
begin
sum:=0;
for i:=102 to 1000 do if (i mod 3=0) then sum:=sum+i;
writeln('Сумма: ',sum);
end.
2)
Program n2;
var i: integer;
begin
for i:=10 to 99 do if (i mod 2<>0)then writeln(i);
end.

Comments

спасибо большое, но понимаете ли, мы проходим тему цикл с предусловием, поэтому нужно решать именно так. Но если жто невозможно, пожалуйста скажите

---

это*