Обязательный атрибут почтового адреса,по-английски называющийся "at":@?
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
Тут 2 кролика а надо чтобы был кролик и крольчиха .
А:=5
Если а<5 то с:=1
или
с:=2
Нижняя цепочка - все пятёрки, то бишь 5 5 5 5 5
Про верхнюю не написано ничего, кроме того, что это не пятёрки, и все одинаковые, но их 5, то есть это 1 1 1 1 1 или 2 2 2 2 2 или 3 3 3 3 3 или 4 4 4 4 4 или 6 6 6 6 6 или 7 7 7 7 7 или 8 8 8 8 8 или 9 9 9 9 9 или 0 0 0 0 0. Если я ничего не упустил.