Вопрос по информатике:
Задано трехзначное положительное целое число. Есть ли среди его цифр 3?Если есть,на каком месте стоит? написать программу на языке паскаль
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 26.01.2015 11:45
- Информатика
- remove_red_eye 14117
- thumb_up 44
Ответы и объяснения 1
//Pascal ABC.NET Версия 2.2 Сборка 790
var a,i:integer;
s:string;begin;
readln(a);
str(a,s);
if length(s)3 then exit;
if pos('3',s)=0 thenbegin;
writeln('Nowhere');
exit;
end;
for i:=1 to length(s) do
if s[i]='3' then writeln(i);
end.
Пример ввода:
123
Пример вывода:
3
- 27.01.2015 15:56
- thumb_up 34
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.