3 гигобайт= 3145725 килобайт
68 мегабайт=71303168 <span>байт</span>
1024 мегабайт=1 гигобайт
1536<span> килобайт </span>=1 мегабайт 512 килобайт
32гигобайта= <span>34 359 738 368 байт</span>
<span>
</span>
Const n = 10;
Var i,k : Byte;
m : array[1..n] of Integer;
Begin
k:=0;
For i:=1 to n do
Begin
Write('Введите значение элемента ',i,' :');
Readln(m[i]);
If m[i]<0 then Inc(k);
end;
Writeln('Отрицательных элементов в массиве (шт.): ',k);
end.
Вроде так:
27) 1
28) 4
29) 4
Ответ: 219,46.
Смотри вложение.
Var a: integer;
begin
write('Введите число: '); read(a);
if((a div 10) = (a mod 10)) then writeln('Цифры одинаковые')
else writeln('Цифры не одинаковые');
end.