Цитата:
Сообщение от Ильнара
Помогите мне пожалуйста, я не знаю как решать эти задачи, вообще не шарю в паскале.....
задачи на цикл с предусловием
вот они:
|
Но только, уж извините - решаю, как мне удобно, а всякие там "задачи на..." - увольте.
Цитата:
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)
|
Да не так чтобы и очень сложно...