Program n1;
var a,b,c,max,min: real;
begin
readln(a,b,c);
if(a>b) and (a>c) then max:=a;
if(b>a) and (b>c) then max:=b;
if(c>a) and (c>b) then max:=c;
min:=a;
if b<min then min:=b;
if c<min then min:=c;
writeln('разность: ',max-min);
end.
3) 45
4)
Program z4; Var b,a,i,m:integer; Begin read(b);for i:=1 to b do beginread(a);if a>0 and (a mod 2 = 0 )then m:=m+a; end;writeln(m);End.
Const n=10;
var a:array[1..n] of integer;
k,i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(9)+2;
write(a[i],' ');
end;
writeln;
k:=0;
for i:=1 to n do
if a[i] mod 2 = 0 then k:=k+1;
writeln('Четных: ',k,' нечётных: ',n-k);
end.
Пример:
<span>2 2 4 7 9 10 9 4 5 4
Четных: 6 нечётных: 4</span>
1. 1 символ кодируется 16-ю битами. (16=2^4)
3 *2^13 бит : 2^4 бит = 3*2^9 =3*512 =1536 символов в тексте.
2. 1 символ кодируется 8-ю битами.
1 байт =8 бит
1 Кбайт =1024 байт
F = 5*25*40*8 = 40 000 бит = 5 000 байт = 4,8828 Кбайт≈ 5 Кбайт
Program N1;
Uses Crt;
var n,s,c:real;
begin
clrscr;
write('Введите числа. Конец ввода 0: ');
n:=1;s:=0;c:=0;
while (n<>0) do
begin
readln(n);
if (n=0) then break;
if (n>0) then
begin
s:=s+n;
c:=c+1;
end;
end;
writeln('Сумма чисел:',s);
writeln('Среднее арифметическое:',s/c);
readkey;
end.
Program N2;
Uses Crt;
var n,s,c:real;
begin
clrscr;
write('Введите числа. Конец ввода 0: ');
s:=0;c:=0;
repeat
readln(n);
if (n=0) then break;
if (n>0) then
begin
s:=s+n;
c:=c+1;
end;
until (c=0);
writeln('Сумма чисел:',s);
writeln('Среднее арифметическое:',s/c);
readkey;
end.