Вопрос по информатике:
Используйте оператор break или continue.
В шестизначном целом числе определите позицию первой нечетной цифры.
Пожаловаться
- 20.09.2018 04:28
- Информатика
- remove_red_eye 6466
- thumb_up 35
Ответы и объяснения 2
//PascalABC.Net 3.2
begin
var n:=readstring ('Ввод числа: ')+' ';
var i:=0;
for i:=1 to length(n) do if n[i] in ['1', '3', '5', '7', '9'] then break;
if i=length(n) then write ('Нет нечетной цифры') else write(i);
end.
begin
var n:=readstring ('Ввод числа: ')+' ';
var i:=0;
for i:=1 to length(n) do if n[i] in ['1', '3', '5', '7', '9'] then break;
if i=length(n) then write ('Нет нечетной цифры') else write(i);
end.
Пожаловаться
- 21.09.2018 16:53
- thumb_up 10
Var n,k,i:integer;
begin
write('n = ');
readln(n);
k:=0;
for i:=1 to 6 do
begin
if n mod 2 = 1 then begin k:=i; break; end;
n:=n div 10;
end;
if k=0
then writeln('В числе нет нечётных цифр')
else writeln('k = ',k);
end.
Пример:
n = 123456
k = 2
begin
write('n = ');
readln(n);
k:=0;
for i:=1 to 6 do
begin
if n mod 2 = 1 then begin k:=i; break; end;
n:=n div 10;
end;
if k=0
then writeln('В числе нет нечётных цифр')
else writeln('k = ',k);
end.
Пример:
n = 123456
k = 2
Пожаловаться
- 22.09.2018 08:22
- thumb_up 35
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы