<em>Наверное так :З</em>
var x:real;
Begin
write('Введите число: '); read(x);
writeln('Целое число: '+floor(x));
var r:real := 1;
for var i := 1 to length(''+(x-floor(x)))-2 do
r := r * 10;
writeln('Дробное число: '+((x-floor(x))*r + (floor(x) * r))+' / '+r+'');
write('Округленно число: ', round(x));
End.
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(кбайт)
//Dev-C++ 5.11 (C)
#include <stdio.h>
int main(void)
{int n,k,m,val,i;
val=1; //val-ценность одной части
scanf("\%d \%d \%d",&n,&m,&k);
i=2;
while(k/(i*n)!=0)
{i++;
val++;}
printf("\%d",m/val+m\%val);
return 0;}
Пример ввода:
4
5
9
Пример вывода:
3
Var
a:array[1..3,1..3] of integer;
t:array[0..2] of boolean;
k:array[0..2] of integer;
i,j:integer;
res:boolean;
begin
for i := 1 to 3 do
for j := 1 to 3 do
read(a[i,j]);
for i := 0 to 2 do
begin
k[i] := 0;
t[i] := false;
end;
for i := 1 to 3 do
for j := 1 to 3 do
k[a[i,j]] := k[a[i,j]] + 1;
for i := 1 to 3 do
begin
if (a[i,1] = a[i,2]) and (a[i,2] = a[i,3]) then
t[a[i,1]] := true;
if (a[1,i] = a[2,i]) and (a[2,i] = a[3,i]) then
t[a[1,i]] := true;
end;
if (a[1,1] = a[2,2]) and (a[2,2] = a[3,3]) then
t[a[2,2]] := true;
if (a[3,1] = a[2,2]) and (a[2,2] = a[1,3]) then
t[a[2,2]] := true;
res := true;
if (k[1] - k[2] > 1) or (k[1] - k[2] < 0) then
res := false;
if t[1] and ( t[2] or (k[1] = k[2]) ) then
res := false;
if res then
writeln('YES')
else
writeln('NO')
end.
40*1024=40960байт,,,,,,,,,,,,,,,,,,,,,,,,,,,,
