Офигеть, мы в 7 в пэинте до сих пор рисуем, да таблицы в ворде вставляем
Хотя бы правильно написали ответ! Он пишется так: "представьте в байтах, Кбайтах, Мбайтах"
<span>
На каждой странице 40 х 50 = 20 000 символов. В рассказе 5 страниц, значит он содержит 5 х 20
000 = 100 000 символов. Один символ
несет один байт информации. Следовательно, объем всей информации в рассказе 100 000 байт; 2) 100 000 /1024 = = 97,65625 Кбайт; 3) 97,65625 / 1024 =
0,095367431640625 Мбайт.</span>
У тебя всё есть дерзай! У тебя всё получится!!
Ввод с клавы:
Var
A:array[1..5] of real;
i:integer;
Begin
WriteLn('Введите массив');
For i:= 1 to 5 do
Read(A[i]);
For i:= 1 to 5 do
Write(A[i],' ');
End.
Заполнение случайными числами:
Var
A:array[1..5] of real;
i:integer;
Begin
For i:= 1 to 5 do
A[i]:=random(21)-10;
For i:= 1 to 5 do
Write(A[i],' ');
End.
Program n1;
Uses CRT;
Var a,b,c,gip: real;
Function S(x,y: real): real;
begin
s:=x*y/2;
end;
Function G(x,y: real): real;
begin
g:=sqrt(sqr(x)+sqr(y))
end;
begin
Writeln('Vvedite katety');
Readln(a,b);
c:=s(a,b);
gip:=g(a,b);
writeln('Ploshad = ',c:3:2);
writeln('Gipotenuza = ',gip:3:2);
readln
end.