Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите, пожалуйста, написать программу на условный операто
Помогите, пожалуйста, написать программу на условный операто
Дано трехзначное число. Определить, входит ли в него цифра n?
1 | Автор: BeaU | 2009-06-03, 16:07   |  Репутация: [ + 0 ]
нет такой цифры n )
Code
var
         str,sumbol:string;
         i:integer;
begin
         write('Enter number: ');
         readln(str);
         write('Enter n: ');
         readln(sumbol);
         for i:=1 to length(str) do
         if(str[i]=sumbol) then
         begin
                 writeln('yes');
                 exit;
         end;
         writeln('no');
end.


Насколько проще была бы жизнь если бы она была в исходниках
2 | Автор: LofD | 2009-06-03, 17:16   |  Репутация: [ + 14 ]
Пасиб)))
3 | Автор: BeaU | 2009-06-03, 17:36   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите, пожалуйста, написать программу на условный операто
Страница 1 из 11
Поиск: