Var
S: string;
i: byte;
tmp: boolean;
begin
write('Введите строку: '); readln(S);
for i := 1 to Length(S) do
begin
if ((S[i] = '*') and (tmp = false)) then
begin
S[i] := '-';
tmp := true;
end;
if tmp = true then S[i] := '-';
end;
writeln(S);
end.
Язык программирования какой?
Тут короче операторы ввода вывода присваивания
присвой а и b значения введенных чисел
потом напиши в свою формулу
и используй оператор вывода
У меня нет данного словаря. Но это легко.
Считаешь количество строк. Затем количество символов в строке (1 символ = 1 байт).
Перемножаешь.
Смотришь количество страниц.
Перемножаешь количество страниц на количество символов на странице (количество строк* количество символов в одной строке).
Получишь объем словаря в байтах.
Делишь на 1024 - в Кб
Делишь еще на 1024 - в Мб.
Var i,s,k:integer;
begin
i:=11;
s:=0;
k:=0;
repeat
s:=s+i;
i:=i+1;
k:=k+1;
until i>20;
write ('Cреднее арифметическое чисел ОТ 11 ДО 20 равно: ', s/k)
end.
9)вообще когда считал,получалось 128 бит,но увы там в ответе биты,значит самое оптимальное 64 бит,ответ Б
10) ответ 6,не буду расписывать,слишком долго,там из 25 вычитаешь 13 = 12 и из 12 по условию задачи бежишь