Нужна информатика плз .вывести на экран числа в диапазоне от 10 до 50,которые остаток 0 от деления на число,введённое пользователем.

Vika15077 Vika15077    3   20.08.2019 14:20    0

Ответы
varich83 varich83  08.09.2020 20:35
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017

begin
  var n:=ReadInteger('n=');
  n.Step(n).TakeWhile(x->x<=50).Println
end.
ПОКАЗАТЬ ОТВЕТЫ
maltsevaalbina2006 maltsevaalbina2006  08.09.2020 20:35
Var inp,i:integer;
begin
readln(inp);
for i:=10 to 50 do
if (i mod inp=0) then write(i,' ');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика