Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 05.06.2009, 14:03   #1
Alexxx92
Пользователь
 
Регистрация: 31.01.2009
Сообщений: 17
По умолчанию Задачи с числами

1. Дано число.опредилить есть ли в нем цифры 2 и 5
2. Дано натуральное число опредилить есть ли в нем цифра "а"
3.Дано натуральное число, верно что оно начинается и заканчивается одной и той же цифрой
Alexxx92 вне форума
Старый 05.06.2009, 14:16   #2
Chudo4258
Форумчанин
 
Аватар для Chudo4258
 
Регистрация: 19.02.2009
Сообщений: 622
По умолчанию

Цитата:
1. Дано число.опредилить есть ли в нем цифры 2 и 5
Код:
program Project2;
var n,x:integer;
    p,q:boolean;
begin
write('n= '); readln(n);
p:=false;
q:=false;
while n<>0 do
 begin
  x:=n mod 10;
  n:=n div 10;
  if x=2 then p:=true;
  if x=5 then q:=true;
 end;
writeln(p and q);
readln
end.
Цитата:
2. Дано натуральное число опредилить есть ли в нем цифра "а"
Код:
program Project2;
var n,x,a:integer;
    p:boolean;
begin
write('n= '); readln(n);
write('a= '); readln(a);
p:=false;
while n<>0 do
 begin
  x:=n mod 10;
  n:=n div 10;
  if x=a then p:=true;
 end;
writeln(p);
readln
end.
Цитата:
3.Дано натуральное число, верно что оно начинается и заканчивается одной и той же цифрой
http://programmersforum.ru/showthread.php?t=53346
Жми на весы!!!

Последний раз редактировалось Chudo4258; 05.06.2009 в 14:22.
Chudo4258 вне форума
Старый 25.04.2011, 23:54   #3
dlanoDcM
Новичок
Джуниор
 
Регистрация: 25.04.2011
Сообщений: 2
По умолчанию C++

Сделайте, пожалуйста эти же первые 2 задачи в с++
Буду очень благодарен!!!
dlanoDcM вне форума
Старый 26.04.2011, 01:28   #4
Alt_Shift
Пользователь
 
Аватар для Alt_Shift
 
Регистрация: 11.11.2010
Сообщений: 74
По умолчанию

Цитата:
Сообщение от dlanoDcM Посмотреть сообщение
Сделайте, пожалуйста эти же первые 2 задачи в с++
Буду очень благодарен!!!
Код:
void main()
{   
	setlocale(LC_ALL, "Russian");
	const int size=20;
	int arr[size];
	int c=0;
	int m=0;
	srand(time(0));
	for (int i=0;i<size;i++)
	{
		arr[i]=rand()%10;
		cout<<arr[i];
	}
for(int i=0;i<20;i++)
{
	if(arr[i]==5)
c++;
	if(arr[i]==2)
		m++;

}
cout<<"\n В заданном числе "<<c<<" раз попадается цифра 5 и "<<m<<" раз цифра 2 \n";
getch();
}
Код:
void main()
{   
	setlocale(LC_ALL, "Russian");
	const int size=20;
	int arr[size];
	int c=0;
	int m;
	srand(time(0));
	for (int i=0;i<size;i++)
	{
		arr[i]=rand()%10;
		cout<<arr[i];
	}
	cout<<"\n Введите иcкомую цифру \n";
	cin>>m;
for(int i=0;i<20;i++)
{
	if(arr[i]==m)
c++;
}
cout<<"\n В заданном числе "<<c<<" раз попадается цифра "<<m<<" \n";



getch();
}

Последний раз редактировалось Alt_Shift; 26.04.2011 в 01:31.
Alt_Shift вне форума
Старый 26.04.2011, 05:42   #5
dlanoDcM
Новичок
Джуниор
 
Регистрация: 25.04.2011
Сообщений: 2
По умолчанию

Большое спасибо!
dlanoDcM вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Файл с числами cu2zoff Паскаль, Turbo Pascal, PascalABC.NET 0 20.05.2009 21:16
Робота с числами! Snake08 Паскаль, Turbo Pascal, PascalABC.NET 3 08.12.2008 18:44
Работа с числами Drain Общие вопросы Delphi 10 11.02.2008 16:35
Заполнение массива числами Ermiss Общие вопросы C/C++ 7 25.11.2007 14:54
работа с большими числами sasadabest Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 2 16.10.2007 10:51