1 Гбайт= 1024 Мбайт
1 Мбайт = 1024 Кбайт
1 Кбайт= 1024 Байт
1 Байт= 8 бит
Приведенные величины являются единицами измерения объема информации
1.6 раз
2.1 раз
3.0 раз
4.1 раз
5.7 раз
6.0 раз
Для ввода информации:
- Readln<em>(есть альтернатива - read - их отличие в том, что допустим при присвоении значения переменным a и b значений, введенных с клавиатуры:</em>
<em>read(a);</em>
<em>read(b);</em>
<em>Вводятся числа 1 и 2 на первой строке, число 3 на второй. Переменной a получит значение 1, а переменная b - значение 2.</em>
<em>readln(a);</em>
<em>readln(b);</em>
<em>Вводятся числа 1 и 2 на первой строке, число 3 на второй. Переменной a получит значение 1, а переменная b - значение 3.)</em>
Для вывода информации:
- Write
- Writeln<em>(отличие от write в том, что после вывода writeln переносит последующий вывод на следующую строку в то время, как вывод после write продолжится на той же строке (если не сделаны некоторые дополнительные манипуляции))</em>
<em>________</em>
p.s. если всего 1 вариант ответа для вывода, то тыкай на любой. Они оба правильные.
Жёсткий диск, оперативная память, флэш память. и.т.д
Var
a:array[1..8] of integer;
b:array[1..8] of integer;
i:integer;
begin
write('Заполните массив - ');
for i:=1 to 8 do
read(a[i]);
for i:=1 to 8
do
begin
if a[i]<(-5) then b[i]:=a[i]*3
else
begin
if a[i]>7 then b[i]:=a[i]*5
else b[i]:=a[i];
end;
end;
for i:=1 to 8 do
write(a[i],' ');
writeln();
for i:=1 to 8 do
write(b[i],' ');
<span>end.</span>