Это ссылка из которой не возращаються
Информация-любые сведения об окружающем мире, полученные с помощью органов чувств. Теория информации - раздел, занимающийся вопросами хранения, обработки и передачи информации.алгоритм-план. 4 и 5 не знаю:С
Var x,y:integer;
begin
readln(x,y);
if (x<0) and (y>1) and (sqr(x)+sqr(y)>4) then writeln('A')
else if (x>0) and (y>1) and (sqr(x)+sqr(y)>4) and (y>x-2) then writeln('B')
else if (sqr(x)+sqr(y)<4) and (y>1) then writeln('C')
else if (x<-2) and (sqr(x)+sqr(y)>4) and (y>0) and (y<1) then writeln('D')
else if (sqr(x)+sqr(y)<4) and (x<0) and (y>0) and (y<1) then writeln('E')
else if (sqr(x)+sqr(y)<4) and (x>0) and (y>0) and (y<1) then writeln('F')
else if (sqr(x)+sqr(y)>4) and (y>0) and (y<1) and (x>2) and (y>x-2) then writeln('G')
else if (sqr(x)+sqr(y)>4) and (y>0) and (y<1) and (x>2) and (y<x-2) then writeln('H')
else if (sqr(x)+sqr(y)>4) and (x<0) and (y<0) and (y>x-2) then writeln('I')
else if (sqr(x)+sqr(y)<4) and (x<0) and (y<0) and (y>x-2) then writeln('J')
else if (sqr(x)+sqr(y)<4) and (x>0) and (y<0) and (y>x-2) then writeln('K')
else if (sqr(x)+sqr(y)<4) and (x>0) and (y<0) and (y<x-2) then writeln('L')
else if (sqr(x)+sqr(y)>4) and (x>0) and (y<0) and (y<x-2) then writeln('M')
else if (sqr(x)+sqr(y)<4) and (x<0) and (y<0) and (y<x-2) then writeln('N')
else if (y>1) and (y<x-2) then writeln ('O')
else writeln('Точка не лежит ни в одной из областей');
<span>end.</span>
1)20+50+63=133(всего денег потрачено на продукты).
2) 500-133=367(остаток денег, после покупки продуктов)
а как в паскале делать, не догадываюсь, что если, то есть) не судите строго, хоть чем-то помогла))
Вот более короткое:
var a,b:real;
begin
readln(a,b);
if a>b then writeln(a+b) else writeln(a*b);
writeln('Задача решена');
end.
var a,b,c:integer;
begin
readln(a,b,c);
if a<(b+c) then writeln('Не слишком длинный') else writeln('Перебор');
end.