Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

// 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.