Пиксель» ұғымын ең алғаш рет 1965 жылы Фредерик С.Биллингсли жариялаған. Бұл сөз бейнелер мен элементтерге арналған пикстердің үйлесімін білдіреді. 1932 жылы Варіетy журналының атауында «пикс» ұғымы фильмдерге қатысты мәтіндік бейнелердің аббревиатурасы ретінде қолданыс тапқан. Ал 1938 жылдан бастап «пикс» жылжымайтын бейнелерге қатысты жұмсалып келеді. Кейбір авторлардың түсіндіруінде пиксель жасуша бейнесі ретінде ұғынылса, 1972 жылы графикада, бейнелер мен бейнежазбаларды өңдеуде жиі қолданылды.
Народ последнюю задачку проверьте опять не могу найти ошибку УСЛОВИЕ: Дано натуральное четырехзначное число. Найти наименьшую нечетную цифру в числовой записи данного числа. Формат входных данных Входной файл содержит натуральное четырехзначное число. Формат выходных данных Выведите наименьшую нечетную цифру в числовой записи данного числа. Если нечетных цифр в числе нет, выведите в выходной файл -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.
Пиксель» ұғымын ең алғаш рет 1965 жылы Фредерик С.Биллингсли жариялаған. Бұл сөз бейнелер мен элементтерге арналған пикстердің үйлесімін білдіреді. 1932 жылы Варіетy журналының атауында «пикс» ұғымы фильмдерге қатысты мәтіндік бейнелердің аббревиатурасы ретінде қолданыс тапқан. Ал 1938 жылдан бастап «пикс» жылжымайтын бейнелерге қатысты жұмсалып келеді. Кейбір авторлардың түсіндіруінде пиксель жасуша бейнесі ретінде ұғынылса, 1972 жылы графикада, бейнелер мен бейнежазбаларды өңдеуде жиі қолданылды.
УСЛОВИЕ:
Дано натуральное четырехзначное число. Найти наименьшую нечетную цифру в числовой записи данного числа.
Формат входных данных
Входной файл содержит натуральное четырехзначное число.
Формат выходных данных
Выведите наименьшую нечетную цифру в числовой записи данного числа. Если нечетных цифр в числе нет, выведите в выходной файл -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.