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

Ильнара · 21.10.2010, 19:20

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

задачи на цикл с предусловием
вот они:
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 · 24.10.2010, 23:38

Цитата:

Сообщение от Ильнара

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

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

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

Цитата:

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 · 08.03.2011, 19:37

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

Vladimir_S · 08.03.2011, 19:44

Цитата:

Сообщение от Maestresa

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

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

Maestresa · 08.03.2011, 19:46

Цитата:

Сообщение от Vladimir_S

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

спасибо

21.10.2010, 19:20	#1 (permalink)
Ильнара Новичок Регистрация: 21.10.2010 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите мне пожалуйста, я не знаю как решать эти задачи Помогите мне пожалуйста, я не знаю как решать эти задачи, вообще не шарю в паскале..... задачи на цикл с предусловием вот они: 1)Поменять местами первую и последнюю цифры числа 2)Поменять порядок цифр на обратный 3)Найти количество четных цифр целого положительного числаъ 4)найти самую большую цифру целого числа 5)найти сумму цифр целого числа,больших 5 6)сколько раз данная цифра встречается в данном числе 7)найдите сумму всех нечетных элементов от -100 до 100 8)найдите произведение всех чисел, кратных 3 и 5 в промежутке[1,100] 9)напечатать все целые числа от 1 до 15 с шагом 1 и от7 до -6 с шагом -3 Кому несложно,помогите)please)

21.10.2010, 19:20
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Наверняка тут вы найдете что то полезное, по этому дам вам ссылки на похожи темы Помогите, пожалуйста, решить три задачи по Pascal Помогите, пожалуйста, с решением задачи Помогите пожалуйста решить задачи

08.03.2011, 19:37	#3 (permalink)
Maestresa Новичок Регистрация: 13.01.2011 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	подскажите плиз что делать, если в задаче "2)Поменять порядок цифр на обратный" стоит оговорка, что число может быть длинной до 100 знаков, число натуральное

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070