Изпълнявай с нови и нови числа следното…

Да се напише програма, която ще позволи въвеждане на все нови и нови числа N (до въвеждане на 0) и за всяко от тях ще:

  1. отпечата числата от N до 1
  2. отпечата числата от 1 до N
  3. отпечатва нечетните числа от 1 до N
  4. отпечатва произведението на числата от 1 до N
  5. отпечатва всички делители на N
  6. отпечатва всички цифри на N
  7. ** позволява да се въведат N числа и отпечатва сумата на четните и на нечетните
  8. *** отпечатва всички прости числа от 1 до N

 

 

Публикувано в с етикети , . Постоянна връзка.

Един коментар по Изпълнявай с нови и нови числа следното…

  1. Lubomira каза:
     
    program Project1;
    var
      N,i:integer;
    
    begin
    WriteLn ('Vuvedete chisla :') ;
    repeat
    ReadLn(N);
    for i:= 1 to N do
    Write(i ,' ') ;
    WriteLn ;
    until N=0;
    ReadLn ;
    end.
                           

Вашият коментар