Возможно то что те кто разбили окно они молчали и ничего не говорили,а тот мальчик который сказал что это он сделал просто хотел прикрыть друзей
Ответ: "о"
программирование
п о р м и о а и
иаоимроп
и о м о
омои
о о
оо
о
Function StRevers(St : String) : String;
Begin
If Length(St)>1 then StRevers:=St[Length(St)]+StRevers(Copy(St,2,Length(St)-2))+St[1]
else StRevers:=St;
end;
Function Del2(st : String) : String;
Begin
If Length(st)>0 then Del2:=st[1]+Del2(Copy(st,3,Length(st)-2)) else Del2:='';
end;
Var
S : String;
Begin
S:='программирование';
While Length(S)>1 do S:=StRevers(Del2(S));
Writeln(S);
end.
<span>Я НЕ ОЧЕНЬ ПОНЯЛА ВОПРОС поэтому на 100% в ответе не уверена </span>
<span>В условии задачи подразумевается, что цены выражаются целым числом рублей. Число ложек, цена которых 200 рублей, равное числу вилок, цена которых 176 рублей, должно быть делителем 200 и 176. Таких чисел три – 2, 4. И 8. Поэтому цена одной ложки равна либо 100 рублей, либо 50 рублей, либо 25 рублей. Условию задачи удовлетворяет последняя цена – 25 рублей. Следовательно, 5 ложек стоят 125 рублей. </span>
Хмм... Ну...
0 = треуг треуг треуг
1 = треуг треуг квадрат
2 = треуг квадрат треуг
3 = треуг квадрат квадрат
4 = квадрат треуг треуг
5 = квадрат треуг квадрат
6 = квадрат квадрат квадрат
7 = треуг треуг круг
8 = треуг круг треуг
9 = треуг круг круг
10 = круг треуг треуг
11 = круг треуг круг
12 = круг круг круг
13 = квадрат квадрат круг
14 = квадрат круг круг
15 = круг квадрат круг
Фух....
Program n1;
var a: array[1..18] of integer;
i,k: integer;
begin
randomize;
k:=0;
writeln('исходный массив:');
for i:=1 to 18 do
begin
a[i]:=random(87)-4;
write(a[i],' ');
if a[i] mod 2=0 then k:=k+1;
end;
writeln;
write('k четн: ',k);
end.
