Var a,b,r:integer;
begin
readln(a,b);
if (a<0) and (b<0) then r:=sqr(a)+sqr(b)
else r:=abs(a-b);
write(r);
end.
Program gt;
var p:real;
a,b,w:integer;
begin
a:=-1;
b:=1;
w:=-1;
while a<=103 do
begin
a:=a+2;
b:=b+2;
w:=w*-1;
p:=p+1/a*b*w;
end;
writeln(p);
end.
2)
program gt;
var p:real;a,b,w:integer;
begin
a:=-1;b:=1;w:=-1;p:=0;
while a<=103 do
begin
a:=a+2;
b:=b+2;
w:=w*-1;
p:=p+(1/(a*b))*w;
end;
writeln(p);
<span>end.
1-первый случай
2-второй случай</span>
<span>Отметьте объекты классной комнаты:
Ответы:
1) </span><span>рабочий стол
2) окно
</span><span>3) компьютер
Объяснение:
Так как
Файла быть не может, и папки то же.</span>
98% что программу ты написал правильно, просто я Паскаль немного забыл , но основное помню
составь словосочетание поясняющее значение хлопок,пироги,окуни,соли,пряди,срезал,замок,муки,суши,пищи,полы,дали,берегу,пила,покр
Chertyonok
Цветной хлопок - услышал хлопок, пшеничные пироги - не придумала (пирОги), пресноводные окуни - окуни голову, морские соли - соли грибы, огурцы, золотистые пряди - пряди шерсть, срезал путь, средневековый замок - навесной замок, тесто из муки - адские муки, край суши - суши весла, остатки пищи - не пищи громко, деревянные полы - полы пальто, бескрайние дали - дали конфетку, на лазурном берегу - берегу честь, покрой платья - покрой пол, жгут листья - медицинский жгут, стих о любви - ветер стих, как себя вели? - вели помиловать
