Паскаль!! Ввод чисел a,b,c. Вывести все числа в диапазоне от a до b, которые кратны c.
Паскаль!!
Ввод чисел 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.
Не нашли ответ?
Похожие вопросы