Лермонтов
5 год назад
Нужна помощь информатика помогите плз задача .вывести на экран числа в диапазоне от 10 до 50,которые дают остаток 0 от деления на число,введённое пользователем. пожалуйста срочно помогите
ОТВЕТЫ
Прохор
Jun 29, 2019
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
begin
var n:=ReadInteger(n=);
n.Step(n).TakeWhile(x-gt;xlt;=50).Println
end.
begin
var n:=ReadInteger(n=);
n.Step(n).TakeWhile(x-gt;xlt;=50).Println
end.
Var inp,i:integer;
begin
readln(inp);
for i:=10 to 50 do
if (i mod inp=0) then write(i, );
end.
begin
readln(inp);
for i:=10 to 50 do
if (i mod inp=0) then write(i, );
end.
11
Смежные вопросы:
