<span>B1.
Числа:
35, 71</span>
В2.
<span>B3.
Заменим
числа в 5 первых ячейках на среднее и получим в сумме
5+24=120</span>
Х – число в 6 ячейке
(120+Х)/6 = 4
Х = -96
<span>В4.
в ячейке F4
будет формула
=$C6-I$3</span>
<span>С1.
8, 17, 26</span>
Const n =5;
var
a:array[1..n] of integer;
i,max:integer;
begin
writeln('Введите 1 элемент массива');
readln(a[1]); max:=a[1];
for i:=2 to n do begin
writeln('Введите ', i,' элемент массива');
readln(a[i]);
if a[i]>max then max := a[i];
end;
writeln('Максимальный элемент массива равен ',max);
end
Var m:integer;
begin
write('m = '); readln(m);
case m of
1 : writeln('один бань');
5 : writeln('пять бань');
10: writeln('десять бань');
25: writeln('двадцать пять бань');
50: writeln('пятьдесят бань');
else writeln('недопустимое значение');
end;
end.
Пример:
m = 25
двадцать пять бань
Вводим x=52
z=1
i=0
Входим в цикл с постусловием и вычисляем
z=(z+x/2)/2=(1+52/2)/2=13.5
Вычисляем внутри цикла i=i+1=0+1=1
Проверяем условие выхода из цикла i<4
Наше i=1 значит 1<4 верное условие, а значит выходим из цикла.
Потому что в цикле с постусловием указывается условие выхода из цикла.
Ответ: 13.5
var s: string;
begin
readln(s);
writeln('кол-во символов: ',length(s));
if s[1]=s[length(s)] then
writeln('первая и последняя буквы слова совпадают')
else writeln('первая и последняя буквы слова не совпадают');
writeln('первый, третий и последний символы: ',s[1],' ',s[3],' ',s[length(s)]);
if length(s) mod 2=0 then write('кол-во символов четное')
else write('кол-во символов нечетное');
end.