tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Задано трехзначное положительное
Задано трехзначное положительное целое число. есть ли среди его цифр 3? если есть,на каком месте стоит? написать программу на языке паскаль
saidislom01
2 08.07.2019 21:40
17
Ответы
Tilinika
16.09.2020 19:21
//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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Den910
20.08.2019 17:10
4. дані координати вершин багатокутника (x1, y1,x2,y2,.x10,y10). напишіть програму для обчислення його периметра (обчислення відстані між вершинами оформити підпрограмою)....
JoshuaJoseph
05.09.2019 18:50
Составить программы на языке турбо паскаль. 1. даны n чисел. найти произведение четных и сумму нечетных. 2. даны n чисел. найти количество положительных и количество...
densto0
05.09.2019 18:50
Сколько значащих нулей в двоичной записи шестнадцатеричного числа 51b...
anokhina69
07.07.2019 13:20
Уинформчика есть монеты только по 3,5 и 10 копеек.сколько каких монет ему нужно взять,чтобы заплатить ровно 44 копейки? разные варианты ответа запиши в таблицу...
МагистрСемен
07.07.2019 13:20
Что такое изминенение информатции компютером...
dimakolobanov2
29.01.2021 17:09
Модуль CRT и графика модуль GraphABC написать код , как это делать....
drazzgaming
29.01.2021 17:08
Это нужно делать в Python Напишіть програми у середовищі програмування для розв’язування таких завдань: 1. Збережіть назви мов світу (Ukrainian, French, Bulgarian,...
MissOmnomno
29.01.2021 17:08
Закодировать заданную строку путем сдвига кодов символов на 2. На языке Assembler, для 64 разрядных систем(win 7,10)...
TokstoyLev
09.08.2019 17:50
Какие из следующих предложений являются высказываниями.определите их истинность 1)не все книги содержат полезную информацию 2)кошка является животным 3)выразите 1...
POMIPO
09.08.2019 17:50
Как пользователя ос виндовс может определить тип файла ?...
Популярные вопросы
Во время полета частота сокращений сердца насекомые увеличивается...
1
:из двух одинаковых квадратов составили прямоугольник со сторонами...
2
Мне задали написать мини сочинение из назывных предложений на...
2
Было несколько кругов. а квадратов на 4 больше. чем кругов. а...
3
Fill the spaces in the following sentences by using one of these...
1
Как в средневековой было отражено сословное деление общества?...
1
Вчем состоит взаимосвязь культуры и цивилизации ?...
2
(7+1r)+5=84 рушить и объясните как надо сделать!...
2
Найдите значение выражения,предварительно его,и запишите: 1)результат...
2
Массы двух брусков изготовлены из одного материала равны 300 и...
1
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