Используя метод половинного деления, определи имеет ли уравнение y=3x+2,3 корень на промежутке [−2, 3].

Если да введи число 1, если нет число 2:

program kvadrat;

var i : integer;

begin

for i: = 10 to 100 do

writeln ( i: 2, i*i : 5);

readln;

end. 

vara: array[1..500] of integer; i,k,n: integer; begink: =0; write('n= '); readln(n); for i: =1 to n do readln(a[i]); for i: =1 to n do k: =k+a[i]*a[i+1]; writeln(k); end.

program w7w7;

var a: real;

begin

readln (a);

if a< 0 then writeln ('otritsatelnoe chislo');

if a> 0 then  writeln ('pologitelnoe chislo');

end.

3 отдельное слово

1 строка

5 абзац

2 весь текст

4 произвольный кусок