Помогите мне пожалуйста, я не знаю как решать эти задачи

[Ильнара]

Помогите мне пожалуйста, я не знаю как решать эти задачи

Помогите мне пожалуйста, я не знаю как решать эти задачи, вообще не шарю в паскале.....:tehnari_ru_121:

задачи на цикл с предусловием
вот они:
1)Поменять местами первую и последнюю цифры числа
2)Поменять порядок цифр на обратный
3)Найти количество четных цифр целого положительного числаъ
4)найти самую большую цифру целого числа
5)найти сумму цифр целого числа,больших 5
6)сколько раз данная цифра встречается в данном числе
7)найдите сумму всех нечетных элементов от -100 до 100
8)найдите произведение всех чисел, кратных 3 и 5 в промежутке[1,100]
9)напечатать все целые числа от 1 до 15 с шагом 1 и от7 до -6 с шагом -3

Кому несложно,помогите)please)

 

[Vladimir_S]

Помогите мне пожалуйста, я не знаю как решать эти задачи, вообще не шарю в паскале.....:tehnari_ru_121:

задачи на цикл с предусловием
вот они:

Но только, уж извините - решаю, как мне удобно, а всякие там "задачи на..." - увольте.

1)Поменять местами первую и последнюю цифры числа

VAR
 n,n1,m:LongInt;
 first,last:BYTE;
BEGIN
 WriteLn('Enter the number:');
 ReadLn(n);
 m:=1;
 While (n div m)>0 do m:=m*10;
 m:=m div 10;
 first:=n div m;
 last:=n mod 10;
 n1:=(((n mod m)+last*m) div 10)*10+first;
 WriteLn(n1);
 Readln;
END.

2)Поменять порядок цифр на обратный

VAR
 n:LongInt;
BEGIN
 WriteLn('Enter the number:');
 ReadLn(n);
 Repeat
  Write(n mod 10);
  n:=n div 10;
 Until n=0;
 WriteLn;
 Readln;
END.

3)Найти количество четных цифр целого положительного числа

VAR
 n,p:LongInt;
BEGIN
 WriteLn('Enter the number:');
 ReadLn(n);
 p:=0;
 Repeat
  If ((n mod 10) mod 2)=0 then Inc(p);
  n:=n div 10;
 Until n=0;
 WriteLn('The number of even digits is ',p);
 Readln;
END.

4)найти самую большую цифру целого числа

VAR
 n,max:LongInt;
BEGIN
 WriteLn('Enter the number:');
 ReadLn(n);
 max:=0;
 Repeat
  If (n mod 10)>max then max:=(n mod 10);
  n:=n div 10;
 Until n=0;
 WriteLn('The largest digit is ',max);
 Readln;
END.

5)найти сумму цифр целого числа,больших 5

VAR
 n,sum:LongInt;
BEGIN
 WriteLn('Enter the number:');
 ReadLn(n);
 sum:=0;
 Repeat
  If (n mod 10)>5 then sum:=sum+(n mod 10);
  n:=n div 10;
 Until n=0;
 WriteLn('The sum is ',sum);
 Readln;
END.

6)сколько раз данная цифра встречается в данном числе

VAR
 n:LongInt;
 d,p:BYTE;
BEGIN
 Write('Enter the number: ');
 ReadLn(n);
 Write('Enter the digit: ');
 ReadLn(d);
 p:=0;
 Repeat
  If (n mod 10)=d then Inc(p);
  n:=n div 10;
 Until n=0;
 WriteLn('The digit ',d,' occurs ',p,' times');
 Readln;
END.

7)найдите сумму всех нечетных элементов от -100 до 100

VAR
 i,sum:Integer;
BEGIN
 sum:=0;
 For i:=-100 to 100 do
  If (i mod 2)<>0 then Inc(sum);
 WriteLn('The number of odd digits is ',sum);
 Readln;
END.

8)найдите произведение всех чисел, кратных 3 и 5 в промежутке[1,100]

VAR
 i:Integer;
 p:Real;
BEGIN
 p:=1;
 For i:=1 to 100 do
  If ((i mod 3)=0) and ((i mod 5)=0) then p:=p*i;
 WriteLn('The product is ',p:12:1);
 Readln;
END.

9)напечатать все целые числа от 1 до 15 с шагом 1 и от7 до -6 с шагом -3

VAR
 i:Integer;
BEGIN
 i:=1;
 Repeat
  WriteLn(i);
  Inc(i);
 Until i>15;
 i:=7;
 Repeat
  WriteLn(i);
  Dec(i,3);
 Until i<-6;
 Readln;
END.

Кому несложно,помогите)please)

Да не так чтобы и очень сложно...

 

[Maestresa]

подскажите плиз что делать, если в задаче "2)Поменять порядок цифр на обратный" стоит оговорка, что число может быть длинной до 100 знаков, число натуральное

 

[Vladimir_S]

подскажите плиз что делать, если в задаче "2)Поменять порядок цифр на обратный" стоит оговорка, что число может быть длинной до 100 знаков, число натуральное

Считать число как строку и вывести символы в обратном порядке.

 

[Maestresa]

Считать число как строку и вывести символы в обратном порядке.

спасибо