Помогите пожалуйста решить задачи по информатике к зачёту.
Вывести на экран все нечетные числа меньше введенного x.
Вывести на экран все числа кратные 5 меньше введенного x.
Вывести на экран n четных чисел так, чтобы числа выводились в обратном порядке – от большего к 2.
Вывести на экран n нечетных чисел так, чтобы числа выводились в обратном порядке – от большего к 1.
Вывести на экран все цифры числа, введенного с клавиатуры.
Определить, сколько цифр в числе, введенном с клавиатуры.
Ответы
Ответ:
1) (Все в одной программе)
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.
1) (По отдельности)
var
i, x: integer;
begin
read(x);
i := 1;
while i < x do
begin
if i mod 2 <> 0 then write(i, ' ');
i := i + 1;
end;
end.
2)
var
i, x: integer;
begin
read(x);
i := 5;
while i < x do
begin
write(i, ' ');
i := i + 5;
end;
end.
3)
var
i, n: integer;
begin
read(n);
i := n * 2;
while n > 0 do
begin
write(i, ' ');
i := i - 2;
n := n - 1;
end;
end.
4)
var
i, n: integer;
begin
read(n);
i := n * 2 - 1;
while n > 0 do
begin
write(i, ' ');
i := i - 2;
n := n - 1;
end;
end.
5)
var
num: integer;
begin
read(num);
if num = 0 then write(0);
while num > 0 do
begin
write(num mod 10, ' ');
num := num div 10;
end;
end.
6)
var
num, count: integer;
begin
count := 0;
read(num);
if num = 0 then count := 1;
while num > 0 do
begin
count := count + 1;
num := num div 10;
end;
write(count);
end.