1. Узнаем сколько байтов в мегабайте:
1Мб=1024*1024=1048576 Байт
2. Найдем 1/64 Мб в Байтах=1048576/64=16384 Байт
3. Получившееся значение умножим на 5
16384*5=81920 Байт
Ответ:81920 Байт
Какое значение будет принимать переменная Х, после выполнения фрагмента программы: 17
Исполнитель (для количества слов исполнитель,исполнитель,исполнитель,исполнитель)
Var
a, i, max: integer;
sum: real;
begin
max := 0;
sum := 0;
i := 0;
repeat
write('Введите число: ');
readln(a);
if a > 0
then begin
sum := sum + a;
i := i + 1;
end;
if max < a
then max := a;
until a = 0;
writeln(#10,'Сумма = ', sum, #10, 'Среднее арифметическое = ', sum / i, #10, 'Наибольшее число - ', max);
end.
Паскаль:
var a,b,c, sum,d,k: integer;
begin
Writeln('Введите А');
readln(a);
Writeln('введите б');
readln(b);
Writeln('Введите С');
readln(c);
d:= b-a;
sum:=d;
k:=c-a;
sum:=sum+k;
Writeln('Сумма=',sum,'Длина AB=',d,'AC=',k);
end