Если не показывабют число значит оно умножено на 0
а) 10010
б) 1030200
I_{1} [/tex]=8 бит
i_{2} [/tex]=16 бит
i_{3} [/tex]=24 бит
i_{4} [/tex]=32 бит
V=i*m*n
V_{11} [/tex]=i1*m1*n1=8*1280*768=7864320(бит)=983040(байт)=960(кбайт)
V_{12} [/tex]=i1*m2*n2=8*1366*768=8392704(бит)=1049088(байт)=1024,5(кбайт)
V_{13} [/tex]=i1*m3*n3=8*1024*768=6291456(бит)=786432(байт)=768(кбайт)
V_{21} [/tex]=i2*m1*n1=16*1280*768=15728640(бит)=1966080(байт)=1920(кбайт)
V_{22} [/tex]=i2*m2*n2=16*1366*768=16785408(бит)=2098176(байт)=2049(кбайт)
V_{23} [/tex]=i3*m2*n2=16*1024*768=12582912(бит)=1572864(байт)=1536(кбайт)
V_{31} [/tex]=i3*m1*n1=24*1280*768=23592960(бит)=2949120(байт)=2880(кбайт)
V_{32} [/tex]=i3*m2*n2=24*1366*768=25178112(бит)=3147264(байт)=3073,5(кбайт)
V_{33} [/tex]=i3*m3*n3=24*1024*768=18874368(бит)=2359296(байт)=2304(кбайт)
V_{41} [/tex]=i4*m1*n1=32*1280*768=31457280(бит)=3932160(байт)=3840(кбайт)
V_{42} [/tex]=i4*m2*n2=32*1366*768=33570816(бит)=4196352(байт)=4098(кбайт)
V_{43} [/tex]=i4*m3*n3=32*1024*768=25165824(бит)=3145728(байт)=3072(кбайт)
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (p,q,s):=(1,2,0);
var k:=0;
Write('(1,5) ');
for var i:=3 to 1000 do begin
var (flag,j,r):=(True,2,Round(Sqrt(i)));
while flag and (j<=r) do
if i mod j = 0 then flag:=false
else j+=1;
if flag then begin
(p,q,s):=(q,s,i);
if q-p=4 then Write('(',p,',',q,') ')
else
if s-p=4 then Write('(',p,',',s,') ')
end
end
end.
<u>Результат</u>
(1,5) (3,7) (7,11) (13,17) (19,23) (37,41) (43,47) (67,71) (79,83) (97,101) (103,107) (109,113) (127,131) (163,167) (193,197) (223,227) (229,233) (277,281) (307,311) (313,317) (349,353) (379,383) (397,401) (439,443) (457,461) (463,467) (487,491) (499,503) (613,617) (643,647) (673,677) (739,743) (757,761) (769,773) (823,827) (853,857) (859,863) (877,881) (883,887) (907,911) (937,941) (967,971)
Ar
a, b, c, d, n : integer;
begin
write('введите первое число ');
readln(a);
write('введите второе число ');
readln(b);
write('введите третье число ');
readln(c);
write('введите четвёртое число ');
readln(d);
n:=a;
if b>n then n:=b;
if c>n then n:=c;
if d>n then n:=d;
writeln('Большее из чисел равно ', n);
end.
1) игра котиков
2) ученик делает уроки
3) футбол (играют две команды)