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.
14бит 50000бит 5кб
ТК 1байт=8бит 1кб=1000байт