Предмет: Информатика, автор: Sergeysidorow

Помогите пожалуйста решить задачи по информатике к зачёту.
Вывести на экран все нечетные числа меньше введенного x.

Вывести на экран все числа кратные 5 меньше введенного x.

Вывести на экран n четных чисел так, чтобы числа выводились в обратном порядке – от большего к 2.

Вывести на экран n нечетных чисел так, чтобы числа выводились в обратном порядке – от большего к 1.

Вывести на экран все цифры числа, введенного с клавиатуры.

Определить, сколько цифр в числе, введенном с клавиатуры.


Аноним: какой язык программирования?
Sergeysidorow: Паскаль

Ответы

Автор ответа: Wybr
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.

Похожие вопросы
Предмет: Русский язык, автор: бюё
Предмет: Математика, автор: GucciGirl213
Предмет: Английский язык, автор: Варнек