Здесь нужно решить квадратное уравнение:
2*q² + 1*q + 2 = 23 ⇒2*q²+q-21=0
Из двух корней выбираем целый положительный. Это 3
Ответ: 3
program raf105;
var s,s1:string;
begin
s:= 'информатика';
s1:= s1 + copy(s,3,5);
writeln(s1);
s1:= '';
s1:= s1 + copy(s,10,1) + copy(s,9,1) + copy(s,2,1) + copy(s,4,1);
writeln(s1);
s1:= '';
s1:= s1 + copy(s,10,2) + copy(s,5,1) + copy(s,8,2) + copy(s,2,1) + copy(s,7,1);
writeln(s1);
s1:= '';
end.
<h3><em><u>Язык PascalABC</u></em></h3>
<span>Можно одновременным нажатием клавиш Alt и Enter перенести текст в
следующую строку в этой же клетке.</span>
Первая задача
var a,b,x,y,z:
real;
begin
write ('х=');
read (x);
write('y=');
read (y);
write ('z=');
read (z);
a:= (x+y-z)/(x*x+2);
write ('a=');
write (a:1:2); end.
Вторая
var a,b,x,y,z:real;
begin
write ('х=');
read (x);
write('y=');
read (y);
write ('z=');
read (z);
a:= 5*((2*x-z)/(3+y*y));
write ('a=');
write (a:1:2);
end.