var
a: integer;
begin
{1}
readln(a);
if a > 0 then a := a + 1;
writeln(a);
{2}
readln(a);
if a < 0 then a := a * 2;
writeln(a);
{3}
readln(a);
if a <> 0 then a := a - 4;
writeln(a);
{4}
readln(a);
if a > 0 then a := a + 1
else a := a - 1;
writeln(a);
{5}
readln(a);
if a = 0 then a := a + 3
else a := 0;
writeln(a);
end.
{6}
var
x, y: real;
begin
readln(x, y);
if x > y then x := x * y
else x := x + y;
writeln(x);
end.
=5*(A2+C3)/(2*B2-3*D3)
=(B2+C4)*(2*B2-3*D3) примечание: В условии не хватает одной открывающей скобки!!! Я поставил ее произвольно...
=2*(C2-C3)+(3^2*(4*K2-3*C5))
Program qfdw;
uses crt;
Type
vershina=Record
Tochka:string;
X,Y:real;
end;
ps=File of vershina;
Var f:ps;
z,a,b,c:vershina;
i:integer;
Begin
assign(f,'1.dat');
rewrite(f);
writeln('Введите вершины треугольника и их координаты: ');
for i:=1 to 3 do
begin
writeln(i,'-я вершина');
write('буква: ');read(z.tochka);
write('X=');read(z.x);
write('Y=');read(z.y);
write(f,z);
end;
Close(f);
assign(f,'1.dat');
reset(f);
read(f,a);
read(f,b);
read(f,c);
close(f);
writeln('Cтороны треугольника:');
writeln(a.tochka,b.tochka,' = ',sqrt((a.x-b.x)*(a.x-b.x)+(a.y-b.y)*(a.y-b.y)):5:2);
writeln(c.tochka,b.tochka,' = ',sqrt((c.x-b.x)*(c.x-b.x)+(c.y-b.y)*(c.y-b.y)):5:2);
writeln(a.tochka,c.tochka,' = ',sqrt((a.x-c.x)*(a.x-c.x)+(a.y-c.y)*(a.y-c.y)):5:2);
end.
Последовательности изображений<span> – </span>фильмы<span>, </span>мультфильмы<span> и т.д. </span>...<span> их информационных свойств, </span>называются<span> информационными объектами.</span>
const
n = 5; m = 5;
var
a: <em>array [0..m, 0..n] of shortint</em>;
i, b, c: <em>integer</em>;
begin
for i := 1 to m do
begin
for b := 1 to n do
begin
a[i, b] := random(-90, 0);
write(a[i, b]:4);
if (i = m) then
if (a[i, b] mod 4 = 0) then
c += 1;
end;
writeln(<em>(i = m) and (b = n)</em> ? ' ' + c : '');
end;
writeln();
<span>end.</span>