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

Публикувано на 14 май, събота от Данаил

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

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

 

 

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

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

  1. Lubomira каза:
    14 май, събота в 09:53 
     
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.

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