Var a,b,c,d,e:integer;
begin
readln(a,b,c,d,e);
if (a mod 2<>0)and(a<0) then write(a);
if (b mod 2<>0)and(b<0) then write(' ',b);
if (c mod 2<>0)and(c<0) then write(' ',c);
if (d mod 2<>0)and(d<0) then write(' ',d);
if (e mod 2<>0)and(e<0) then write(' ',e);
end.
Пример:
-15 42 -10 27 -79
-15 -79
var
x,x1:integer;
begin
readln(x);
if (x div 10 + x mod 10 >= 10) then writeln ('Является')
else begin x1:=x; while (x1 div 10 + x1 mod 10 < 10) do x1:=x1+1; end;a
if (x div 10 + x mod 10 < 10) then writeln('Нужно увеличить на ',x1-x);
end.
Существенно различаются
Paint.NET Основан Риком Брюстером ,там есть работа со слоями ,он намного продвинутей обычного paint
А пейнт появился с самой первой версии Windows 1.20 ноября <span>1985</span>
ПОЖАЛУЙСТА31,75 перевести в 2-ичную,8-ичную,16-ичную. 266,107 перевести 2,8,16-и31,75 перевести в 2-ичную,8-ичную,16-ичную.266,1
Владислав20
31 в двоичной 11111 в восьмеричной 37 в шестнадцатеричной 1F
266 в двоичной 100001010 в восьмеричной 412 в шестнадцатеричной 10A
107 в двоичной 1101011 в восьмеричной 153 в шестнадцатеричной 6B
31 в двоичной 11111 в восьмеричной 37 в шестнадцатеричной 1F
75 в двоичной 1001011 в восьмеричной 113 в шестнадцатеричной 4B
138 в двоичной 10001010 в восьмеричной 212 в шестнадцатеричной 8A
155 в двоичной 10011011 в восьмеричной 233 в шестнадцатеричной 9B