Var n, k, i: integer;
begin k := 1; for i := 1 to 4 do begin read(n); if (n >= 3) and (n <= 9) then k := k * n; end; if k = 1 then writeln(-1) else writeln(k);end.
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.
A) var s, i, n :integer;
begin
s:=0;
readln(n);
for i:= 1 to n do s:=s+i;
writeln(s);
end.
б) var s, i, n :integer;
begin
s:=0;
readln(n);
for i:= 1 to n do s:=s+(i*i);
writeln(s);
end.
в) var s, i, n :integer;
begin
s:=0;
readln(n);
for i:= 1 to n do
begin
if (i mod 2 = 0) then s:=s+i;
end;
writeln(s);
end.
г) var s, i :integer;
begin
s:=0;
for i:= 10 to 99 do s:=s+i;
writeln(s);
end.
Вот)
Если использовать стандартную кодировку символов 1 байт = 1 символ,то
1)u = 1200 бит/сек = 150 байт/сек
V = u*t
t = 5 сек
V = 150 * 5 = 750 символов
2) Тоже самое
u = 14400 бит/сек = 1800 байт/сек
V = 1800 * 5 = 9000 символов