Uses crt;
var a,b,c:integer;
begin
clrscr;
readln(a,b,c);
if (a >0) or (b>0) or (c>0) then writeln('True') else
writeln('False');
end.
Var a,b,k:integer;
begin
writeln('a, b:');
readln(a,b);
k:=0;
while a<>b do
begin
k:=k+1;
if a>b
then begin writeln(k,': ',b,'*',b); a:=a-b; end
else begin writeln(k,': ',a,'*',a); b:=b-a; end;
end;
k:=k+1;
writeln(k,': ',a,'*',a);
writeln('k = ',k);
end.
Пример:
a, b:
3 8
1: 3*3
2: 3*3
3: 2*2
4: 1*1
5: 1*1
k = 5
40*16=640 символов в строках
640*8=5120 символов на 8 страницах
5120/2=2560 байт на 8 страницах
1Кбайт=1024 байт
2560/1024=2.5Кбайт
I 1=8=8*1024*8=65536 бит. t= I*V. t= 65536*2048=134217728 сек. I 2=134217728*512=6.871947674 в степени 10. и теперь это поделить на 8=8589934592 байта. Ответ: I 2=8589934592 байта
Информационный объем(I) можно определить как произведение скорости(v) на время(t)
Дано: v=256000 бит/с
t=2 мин =120 c
Найти: I
Решение
I = v*t =256000 бит/с * 120 с =30720000 бит =(делим на 8) =3840000 байт=(делим на 1024)=3750 Кбайт Ответ: 3750 Кбайт