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.