Паскаль!! Ввод чисел a,b,c. Вывести все числа в диапазоне от a до b, которые кратны c.

Question

Паскаль!!
Ввод чисел a,b,c.
Вывести все числа в диапазоне от a до b, которые кратны c.

Answer 1

// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
  var a,b,c:integer;
  Write('a b c = '); Read(a,b,c);
  Range(a,b).Where(i->i mod c=0).Println
end.

Тестовое решение:
a b c = 7 38 4
8 12 16 20 24 28 32 36

Школьный вариант
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
var
  a,b,c,i:integer;
begin
  Write('a b c = '); Read(a,b,c);
  for i:=a to b do
    if i mod c=0 then Write(i,' ');
  Writeln
end.

Comments

а решается только так? :( Нам бы понятное для 7-го класса. While уже пройден. Но Вам, конечно, большое спасибо.

---

В смысле, надо тупое школьное решение? Сейчас добавлю...)))

---

Именно :))

---

Получите)

---

Огромное спасибо!!

---

Дос аточно кнопочки)