Brarad
5 год назад
28+14 поинтов!!!!!!!!!!Используйте оператор break или continue.В шестизначном целом числе определите позицию первой нечетной цифры.
ОТВЕТЫ
Aleksandr
Oct 24, 2020
//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.
873
Смежные вопросы:
