Var x,y,z:integer; a,b:real;
Begin
write('x='); readln(x);
write('y='); readln(y);
write('z='); readln(z);
a:=((2*x)+(3*y)-z)/(3+(2*x));
b:=((x*x)+4)/(abs(y)-2);
writeln('a=',a); writeln('b=',b);
End.
Var
d: array [1..6] of integer;
i:integer;
begin
for i:=1 to 6 do
read(d[i]);
for i:=1 to 6 do begin
if d[i]>0 then
write(d[i],' ');
end;
end.
V=x*y*G
Количество цветов - c
c=2^G => G=16
V=1*1*16=16 бит=2 байта
Ответ: 2 байта
1)
var
n: integer;
y, x: real;
begin
readln(x, n);
y := 1;
while n > 0 do
begin
y := y * x;
n := n - 1;
end;
writeln(y);
end.
2)
var
a, b, c, t, i: integer;
begin
readln(a, b, c);
Writeln(0:2, ': a=', a, ' b=', b, ' c=', c);
for i := 1 to 10 do
begin
t := a;
a := b;
b := c;
c := t;
Writeln(i:2, ': ', a, ' ', b, ' ', c);
end;
end.