Предмет: Информатика,
автор: dtop345
Напишите программу в паскаль. ДАМ 20 БАЛЛОВ!!!
Вывести на экран все нечетные числа меньше введенного x.
Вывести на экран все числа кратные 5 меньше введенного x.
Вывести на экран n четных чисел так, чтобы числа выводились в обратном порядке – от большего к 2.
Вывести на экран n нечетных чисел так, чтобы числа выводились в обратном порядке – от большего к 1.
Вывести на экран все цифры числа, введенного с клавиатуры.
Определить, сколько цифр в числе, введенном с клавиатуры.
Ответы
Автор ответа:
0
Ответ:
begin
//PascalABC.NET 3.8.2
var num := ReadInteger;
SeqWhile(1, x -> x + 2, x -> x < num).Println;
num := ReadInteger;
SeqWhile(5, x -> x + 5, x -> x < num).Println;
SeqGen(ReadInteger, 2, x -> x + 2).Reverse.Println;
SeqGen(ReadInteger, 1, x -> x + 2).Reverse.Println;
ReadInteger.ToString.ForEach(x -> Write(x, ' '));
Writeln;
ReadInteger.ToString.Length.Println;
end.
Похожие вопросы
Предмет: Английский язык,
автор: Анечка861
Предмет: Русский язык,
автор: асият10
Предмет: Английский язык,
автор: mimi62
Предмет: Геометрия,
автор: mamatvoya2283
Предмет: Математика,
автор: tatilbdvpe0sf9