Var i,k : integer;
a: array[1..10] of integer;
Begin
for i := 1 to 10 do begin
a[i] := random(7) + 3;
if a[i] = 4 then k:= k + 1;
end;
writeln(k);
End.
Паскаль:
Var xa,ya,xb,yb:integer;
AB:real;
begin
read (xa,ya,xb,yb);
AB:=sqrt(sqr(xb-xa)+sqr(yb-ya));
Write ('|AB|=',AB:3:1);
end.
64 символа, чтобы их закодировать нужно 6 бит
6 * 2000 = 12000 бит/8 = 1500 байт
150 Б/50Б/сек = 30 сек
Ответ: 30 секунд
x div y - выводит целую часть получившегося числа,то есть делит x на y и выводит целую часть этого числа.
1) 44 div 8
2) 44/8=5.5
Ответ: 5.