Var i,k,n:integer;
a,b:array[1..100] of integer;
begin
readln(n);
for i:=1 to n do
begin
readln(a[i]);
if a[i]<0 then
begin
b[k]:=a[i];
k:=k+1;
end;
end;
write('Элементы: ');
for i:=1 to k-1 do write(b[i],' ');
writeln;
writeln('Колличество отрицательных=',k-1);
<span>end.</span>
Для этого сначала переведем 33554432 в биты получилось:
33554432 = 33554432
Теперь переведем его в мегабайты
33554432 = 4
Program;
var a,b,c:real;
begin
readln(a,b,c);
writeln(a+b+c);
end.
<em>// PascalABC.NET 3.2, сборка 1346 от 25.11.2016</em>
<em>// Внимание! Если программа не работает, обновите её версию!</em>
begin
var n:=Readinteger('n=');
Writeln(n mod 10, (n div 10) mod 10)
end.
<u>Пример</u>
n= 368
86
QWERTY — наиболее популярная в настоящее время латинская раскладка клавиатуры, используемая для английского языка. На её основе создано большинство раскладок для языков, использующих латиницу. Название произошло от 6 левых символов верхнего ряда.