var
x1,y1,x2,y2:integer;
begin
readln(x1);
readln(y1);
readln(x2);
readln(y2);
if (x1+y1+x2+y2) mod 2 = 0 then
writeln('ONI IMEUT ODINAKOVIJ ZVET');
else
writeln('ONI IMEUT RAZNIJ ZVET');
end.
<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a,b,d,c:real;
var k:integer;
var s:=0.0;
loop ReadInteger do begin
Read(k,a,b,c,d);
if k=1 then s+=Abs(a-c)*Abs(b-d)
else s+=pi*c*d
end;
Writeln(s)
end.
<u>Пример</u>
3
1 40 100 150 200
2 200 200 60 40
1 150 180 250 300
30539.8223686155
2)♀️я не уверена и не очень поняла,но должно быть 6
//Видимо, это одна задача, так как "изменения" во второй не указаны
//Pascal ABC.NET v3.1 сборка 1172
Const
n=20;
Var
ar:array[1..n] of integer;
i:integer;
begin
randomize;
writeln('First array:');
for i:=1 to n do
begin
ar[i]:=random(10)-3;
write(ar[i]:4);
if ar[i]>0 then ar[i]:=ar[i]*2 else ar[i]:=0;
end;
writeln;
writeln('Final array:');
for i:=1 to n do
write(ar[i]:4);
end.
Пример работы программы:
First array: 2 -3 5 6 -3 -3 1 -2 -3 1 3 -3 4 -3 1 -1 6 6 2 3
Final array: 4 0 10 12 0 0 2 0 0 2 6 0 8 0 2 0 12 12 4 6
Var
a ,b,s,x: integer;
begin
writeln('введите x');
readln(x);
b:=2x*2x*2x;
a:=Sqrt(x*x+4x-5);
s:=a-b;
writeln('решение',s);
end.