Вот файл с прогой для нахождения
Два сапога-пара-15 символов
8х15=120 бит
1 байт-8бит
х байт-120 бит, х=120/8=15 байт
Ответ:15 байт,120 бит
Формулы
1) a+a+a \ 3
2)нужно знать ср. арифм. и 1 число
Vara,b,sr_ar:real;beginwriteln('Введите числа a и b: ');readln(a,b);sr_ar:=(a+b)/2;if sr_ar>15 then writeln('Площадь равна ',a*b)elsewriteln('Среднее арифметическое этих чисел равен ',sr_ar);end.
З1:
Program z;
var mas: array [1..10] of integer;
i, x: integer;
begin
for i:=1 to 10 do
readln(mas[i]);
for x:=1 to 10 do
if mas[x] mod 2 = 1 then writeln(mas[x]);
<span>end.
</span>З2:
Program z;
var mas: array [1..10] of integer;
i, x: integer;
begin
for i:=1 to 10 do
readln(mas[i]);
for x:=1 to 10 do
if (mas[x] mod 2 = 0) and (mas[x] > 0) then writeln(mas[x]);
end.