Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Закрытая тема
 
Опции темы Опции просмотра
Старый 21.10.2010, 19:20   #1 (permalink)
Ильнара
Новичок
 
Аватар для Ильнара
 
Регистрация: 21.10.2010
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Question Помогите мне пожалуйста, я не знаю как решать эти задачи

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

задачи на цикл с предусловием
вот они:
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
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Наверняка тут вы найдете что то полезное, по этому дам вам ссылки на похожи темы

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

Старый 24.10.2010, 23:38   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 25,791
Сказал(а) спасибо: 270
Поблагодарили 496 раз(а) в 158 сообщениях
Репутация: 86206
По умолчанию

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

задачи на цикл с предусловием
вот они:
Но только, уж извините - решаю, как мне удобно, а всякие там "задачи на..." - увольте.
Цитата:
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)
Да не так чтобы и очень сложно...
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума  
Старый 08.03.2011, 19:37   #3 (permalink)
Maestresa
Новичок
 
Регистрация: 13.01.2011
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

подскажите плиз что делать, если в задаче "2)Поменять порядок цифр на обратный" стоит оговорка, что число может быть длинной до 100 знаков, число натуральное
Maestresa вне форума  
Старый 08.03.2011, 19:44   #4 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 25,791
Сказал(а) спасибо: 270
Поблагодарили 496 раз(а) в 158 сообщениях
Репутация: 86206
По умолчанию

Цитата:
Сообщение от Maestresa Посмотреть сообщение
подскажите плиз что делать, если в задаче "2)Поменять порядок цифр на обратный" стоит оговорка, что число может быть длинной до 100 знаков, число натуральное
Считать число как строку и вывести символы в обратном порядке.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума  
Старый 08.03.2011, 19:46   #5 (permalink)
Maestresa
Новичок
 
Регистрация: 13.01.2011
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Цитата:
Сообщение от Vladimir_S Посмотреть сообщение
Считать число как строку и вывести символы в обратном порядке.
спасибо
Maestresa вне форума  
Ads

Яндекс

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

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 23:10.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.