1 вывести ** экран все трехзначные числа кратные 502 найти количество четных чисел...

Question

1 вывести на экран все трехзначные числа кратные 50
2 найти количество четных чисел начиная с числа 20 до 60
3 найти сумму нечетных чисел от 100 до 150
паскаль

Comments

Каким циклом нужно сделать ?

---

любым корооче

---

без разницы

Answer 1

VAR
   k: LongInt;
BEGIN
   k := 50;
   While (k < 1000) do begin </em>
      k := k + 50; Write(k, ' '); 
   End;
END.

VAR
   kol, k: LongInt;
BEGIN
   k := 20; kol := 0;
   While (k <= 60) do begin</em>
      kol := kol + 1;
      k := k + 2;
   End;

   Writeln(kol);
END.

VAR
   sum, k: LongInt;
BEGIN
   k := 101; sum := 0;
   While (k < 150) do begin</em>
      sum := sum + k;
      k := k + 2;
   End;
   
   Writeln(sum);
END.