- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
var c:longint;
begin
c:= 12345;
write( char( ( ((( (c div 10000) mod 10 ) mod 2) + 1) mod 2) * (( (c div 10000) mod 10 ) +
byte( '0' )) + (( (c div 10000) mod 10 ) mod 2) * byte(' ') ) ,
char( ( ((( (c div 1000) mod 10 ) mod 2) + 1) mod 2) * (( (c div 1000) mod 10 ) +
byte( '0' )) + (( (c div 1000) mod 10 ) mod 2) * byte(' ') ) ,
char( ( ((( (c div 100) mod 10 ) mod 2) + 1) mod 2) * (( (c div 100) mod 10 ) +
byte( '0' )) + (( (c div 100) mod 10 ) mod 2) * byte(' ') ) ,
char( ( ((( (c div 10) mod 10 ) mod 2) + 1) mod 2) * (( (c div 10) mod 10 ) +
byte( '0' )) + (( (c div 10) mod 10 ) mod 2) * byte(' ') ) ,
char( ( ((( (c div 1) mod 10 ) mod 2) + 1) mod 2) * (( (c div 1) mod 10 ) +
byte( '0' )) + (( (c div 1) mod 10 ) mod 2) * byte(' ') ) );
readln;
end.
На одном чайникофоруме попросили решить задачу на паскале: вывести все чётные цифры пятизначного числа. При этом нельзя пользоваться функциями, циклами и условными операторами. Вот, что у меня из этого получилось :)
Комментарии (0) RSS
Добавить комментарий