Дано двухзначное число и цифра. Определить, есть ли введенная цифра в этом числе

@Maz220297 · Регистрация: 04.02.2013

Author24 — интернет-сервис помощи студентам

Дано двухзначное число и цифра. Определить, есть ли введенная цифра в этом числе.

Kodzaev · 18.04.2013, 21:21

Pascal

Var
  a,b: Byte;
BEGIN
Repeat
 Write('Введите двузначное число: ');
 Readln(a);
until a in [10..99];
Write('Введите цифру:');
Readln(b);
If (a div 10=b) or (a mod 10=b) Then
Writeln('Есть')
Else
Writeln('Нет');
END.

@Maz220297 0 / 0 / 0 Регистрация: 04.02.2013 Сообщений: 40
		1
	Дано двухзначное число и цифра. Определить, есть ли введенная цифра в этом числе 18.04.2013, 20:02. Показов 3800. Ответов 1 Метки нет (Все метки) Дано двухзначное число и цифра. Определить, есть ли введенная цифра в этом числе. 0

	18.04.2013, 21:21

Дано двухзначное число и цифра. Определить, есть ли введенная цифра в этом числе

Решение