9дано натуральное четырехзначное число. найти наименьшую нечетную цифру в числовой записи данного числа. формат входных данных: входной файл содержит натуральное четырехзначное число. формат выходных данных: выведите наименьшую нечетную цифру в числовой записи данного числа. если нечетных цифр в числе нет, выведите в выходной файл -1. примеры: вход 1234 выход 1

141

485

Посмотреть ответы 2

Ответы на вопрос:

RFTBOY

Информатика

4,6(42 оценок)

Народ последнюю проверьте ! опять не могу найти ошибку условие: дано натуральное четырехзначное число. найти наименьшую нечетную цифру в числовой записи данного числа. формат входных данных входной файл содержит натуральное четырехзначное число. формат выходных данных выведите наименьшую нечетную цифру в числовой записи данного числа. если нечетных цифр в числе нет, выведите в выходной файл -1. решение: pascalвыделить код1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 var n,a,b,c,d: integer; f,g: text; begin assign(f,'input.txt'); assign(g,'output.txt'); reset(f); rewrite(g); readln(f,n); a: =n div 1000; b: =n div 100 mod 10; c: =(n mod 100) div 10; d: =n mod 10; if (a mod 2=0) and (b mod 2=0) and (c mod 2=0) and (d mod 2=0) and (n< > 0) then writeln(g,'-1') else if (a< =b) and (a< =c) and (a< =d) then writeln(g,a) else if (b< =a) and (b< =c) and (b< =d)then writeln(g,b) else if (c< =a) and (c< =b) and (c< =d) then writeln(g,c) else if (d< =a) and (d< =b) and (d< =c) then writeln(g,d) else close(f); close(g); end.

QuAtTro271

Информатика

4,6(34 оценок)

Вот вставь проверь там напишет при каких значениях var x, l, m,i,i1: integer; begin for i: =0 to 1000 do begin i1: =i; l: =0; m: =0; while i1 > 0 do begin l: =l+1; if m < i1 then begin m: = (i1 mod 10) * 2; end; i1: = i1 div 10; end; writeln(l); write(m); end; readln; end.