Почему на многих фотографиях возникает искажение перспективы как его убрать

108

242

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

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

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.