Uses crt;var i,j,k:0..9; kol:integer;beginkol:=0;For i:=1 to 9 do For j:=0 to 9 do For k:=0 to 9 do if (i+j+k)=10 then inc(kol);writeln('Result: ',kol);end.
Самолёт, Паровоз, Самокат, Вертолёт.
Решение №1
Складываем степени двойки там где 1, где 0 будет 0:
2⁴+2²+2¹+2⁰ = 16+4+2+1 = 23
Решение № 2
10111₂ = 2⁵-1 - 2³ = 32 -1 -8 =23
//Pascal
var
Ez: byte;
z: real;
begin
writeln('1 - дециметр, 2 - километр, 3 - метр, 4 - миллиметр, 5 - сантиметр');
write('Введите номер единицы измерения: '); readln(Ez);
write('Введите длинну: '); readln(z);
if Ez = 1 then writeln(z/10, ' м');
if Ez = 2 then writeln(z*1000, ' м');
if Ez = 3 then writeln(z, ' м');
if Ez = 4 then writeln(z/1000, ' м');
if Ez = 5 then writeln(z/100, ' м');
readln;
end.