Вот код и результат выполнения программы на ЯП Python3.6.2
Var
S, a, h: real;
begin
write('Введите длину основания --->');read(a);
write('Введите высоту --->');read(h);
S := (a * h) / 2;
writeln('Площадь треугольника равна', ' ', S);
writeln('Целая часть - ', Trunc(S));
writeln('Дробная часть - ', Frac(S));
end.
Перевел всё в К<span>байт
7) 0.001 </span>Кбайт<span>
4) 0.12825 </span>Кбайт<span>
2) 1.02425 </span>Кбайт<span>
3) 1 </span>Кбайт<span>
5) 1.028 </span>Кбайт<span>
6) 8 </span>Кбайт<span>
1) 8.194 </span>Кбайт
512 пикс * 256 пикс * = 131072 пикс / 8 / 1024 = 16 кибипикс.
64 кбайт / 16 кбайт = 4 бит на цвет.
2^4 = 16 цветов поместятся.
Ввод с клавы:
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.