Числа. Наличие цифр

@Lyyynx · Регистрация: 04.01.2013

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

3.Дано натуральное число. Определить:
а) есть ли в нем цифра 3;
б) есть ли в нем цифры 2 и 5.

@Das Gespenst · 11.01.2013, 02:48

Задача (а)

Pascal

uses crt;
var a,i:integer; s:string;
begin
     write('Введите число: ');
     readln(a);
     str(a,s);
     a:=0;
     for i:=1 to length(s) do
         if s[i]='3' then
            a:=1;
     if a=1 then
        write('В числе есть цифра 3')
     else
         write('В числе нет цифры 3');
end.

Добавлено через 23 секунды
Задача (б)

Pascal

uses crt;
var a,i:integer; s:string;
begin
     write('Введите число: ');
     readln(a);
     str(a,s);
     a:=0;
     for i:=1 to length(s) do
         if s[i]='2' then
            a:=1;
     for i:=1 to length(s) do
         if (s[i]='5') and (a=1) then
            a:=2;
     if a=2 then
        write('В числе есть цифры 2 и 5')
     else
         write('В числе нет цифр 2 и 5');
end.

@Lyyynx 0 / 0 / 0 Регистрация: 04.01.2013 Сообщений: 12
		1
	Числа. Наличие цифр 10.01.2013, 19:23. Показов 1364. Ответов 1 Метки нет (Все метки) 3.Дано натуральное число. Определить: а) есть ли в нем цифра 3; б) есть ли в нем цифры 2 и 5. 0

	11.01.2013, 02:48

Опции темы

Числа. Наличие цифр

Решение