Расположите по возрастанию 14 бит, 5 Кбайт, 50000 бит

14бит 50000бит 5кб

ТК 1байт=8бит 1кб=1000байт

program zz1;

var a:integer; // задаем переменную целого типа

n, b, c:real;// задаем переменные не целого типа

begin

write(' введите заданную величину а '); // вводим с клавиатуры число

read(a);

n:= a / 1024; // переводим объем информации в килобайты

b:= (a / 1024) / 1024; // переводим объем информации в мегабайты

c:= ((a / 1024) / 1024) / 1024; // переводим объем информации в гигабайты

writeln(' объем информации в килобайтах = ', n); // выводим ответ

writeln(' объем информации в мегабайтах = ', b);

write(' объем информации в гигабайтах = ', c);

end.

znanija

Поиск...

Избавься от ограничений

ПОПРОБУЙ ЗНАНИЯ ПЛЮС СЕГОДНЯ

User avatar

Nastyukha0

10.02.2015

Информатика

5 - 9 классы

ответ дан • проверенный экспертом

заполнить массив состоящий из 10 элементов случайными целыми числами из промежутка [-50;50]. Выведите на экран и вычислите сумму всех отрицательных элементов. Как в программе паскаль. Заранее огромное с:

1

СМОТРЕТЬ ОТВЕТ

Что означает фраза "КАК в программе паскаль" ?:

И потом, "Выведите на экран и вычислите сумму" - это не по-русски, потому что сначала надо вычислить, а затем вывести.

Войди чтобы добавить комментарий

Реклама

ответ, проверенный экспертом

5,0/5

3

Участник Знаний

const

n = 10;

var

x: array[1..n] of integer;

i, s: integer;

begin

Randomize;

Writeln('Элементы массива');

s := 0;

for i := 1 to n do

begin

x[i] := Random(101) - 50;

Write(x[i]:4);

if x[i] < 0 then s := s + x[i]

end;

Writeln;

Writeln('Сумма отрицательных элементов равна ', s);

end.