28+14 БАЛЛОВ!!!!!!!!!! Используйте оператор break или continue. В шестизначном целом числе определите позицию первой нечетной цифры.
28+14 БАЛЛОВ!!!!!!!!!!
Используйте оператор break или continue.
В шестизначном целом числе определите позицию первой нечетной цифры.
Гость
Ответ(ы) на вопрос:
Гость//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.
Гость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
Не нашли ответ?
Похожие вопросы