Синквейн на тему графики текстового редактора

program p_1

var

a: string

begin

writeln ('vvedite nazvanie rek');

read (a);

if (a='волга,днепро,нёман,енисей')then

writeln ('в беларуси протекают только днепро,нёман');

end.

ошибка в том что натуральный логарифм (-1) не существует

program summa; uses crt; var n,i: integer; s: real;

p1,p2: integer; begin clrscr; writeln ('vvedite n'); readln (n); s: =0;

p1: =-1;

p2: =2; for i: =1 to n do

begins: =s+p1/p2;

p1: =-p1;

p2: =p2*2;

end; writeln ('s=', s); readln; end.

не трундая . приступим.

пусть а - первое число, б - второе число, с - третье число.

четное число - 2n

if (a+b+c) div 2 = 0 then writeln ('их сумма четное число') else writeln ('их сумма нечетное число');

350*2=700

700-500=200