1)а,в,б (только это могу)
В русском варианте диалога найти и заменить это выглядит так:
Найти: берёза
Заменить на: стол
То есть, будет найдено слово берёза, и заменено на слово стол.
Правильный ответ №3 (слово «берёза» заменится на слово «стол»).
Var
i,n,m:integer;
k,s:longint;
begin
Write('Задайте количество чисел: '); Read(n);
s:=0; m:=0;
Writeln('Вводите числа...');
for i:=1 to n do
begin
Read(k);
if (k mod 2)=0 then begin s:=s+k*k; Inc(m) end
end;
Writeln('Среднее квадратов четных чисел: ',s/m:0:4)
end.
<em><u>Тестовое решение:</u></em>
Задайте количество чисел: 7
Вводите числа...
36
-18
15
8
14
6
9
Среднее квадратов четных чисел: 383.2000
Печеные яблоки с медом в печи
Пряник медовый
Варенье