var
arr: array [1..100]of integer;
i, size: integer;
begin
writeln('Введите размерность последовательности: ');
readln(size);
for i := 1 to size do
readln(arr[i]);
i := 1;
repeat
writeln(arr[i], ' ');
inc(i);
until arr[i] = 0;
writeln(0);
end.
Ответ: 78*1=78
Объяснение:
В 1 символе содержится 8бит=1байт
По этому 78*1=78Байт или 624бит
Основные правила ввода текста:
> не нажимайте на клавишу ввода для перехода на новый ряд;
> не нажимайте на клавишу Пробел для создания абзацных отступов и центрирования текста;
> не нажимайте на клавишу Backspace, чтобы переместить курсор к позиции с ошибкой;
> чтобы получить большую букву, нажмите на клавишу Shift;
> следите, чтобы не была нажата клавиша Caps Lock, иначе все буквы будут большими;
> помните, что следующий абзац (после нажатия на клавишу ввода) унаследует вид (стиль) предыдущего.
С помощью команд пункта Файл или кнопок стандартной панели инструментов, которые их дублируют, над текстовым документом можно выполнить такие важнейшие операции:
1. Создать новый документ(Создать…, Ctrl + N);
2. Открыть старый документ (Открыть…, Ctrl + O);
3. Сохранить на диске (Сохранить, Shift + F12);
4. Сохранить с новым именем (Сохранить как...);
5. Закрыть (Выход);
6. Печатать (Печать…, Ctrl + P);
7. Задать параметры страницы(Параметры страницы…) и другие.
Если это такая проблема скопировать код и выполнить его, то держите
Вывод
sr=4.5