1) (3072 кб + 3072 кб) / 2 кб= 3072 кб
2) (7 байт+384 байт)+(2 байт+2520 байт)=645байт
4) (1 байт*1 байт*1 байт*1 байт) / 1 байт=1 байт
var
s : string;
flag : boolean;
i, c : integer;
begin
readln (s);
c := 0; flag := false;
for i := 1 to length (s) do
begin
if flag then
begin
if s[i] = ' ' then flag := false;
end
else
if s[i] <> ' ' then
begin
inc (c);
flag := true;
end;
begin
end;
end;
writeln (c);
end.
1. Измерения отрезков.
2. Измерения углов.
3. Измерения температуры.
4. Измерения давления.
5. Определения частей света.
6. Определения положения космических тел.
6. Для просмотра более мелких объектов.
Var a,x,y:real;
procedure st(a,x:real; var y:real);
begin
end;
begin
write('a, x, y: ');
readln(a,x,y);
if x=0
then y:=1
else if x>0 then st(a,x,y) else st(1/a,-x,y);
writeln('y = ',y);
end.
Пример:
a, x, y: 1 2 3
y = 3
Подсчитаем количество чётных чисел. В разряде десятков тысяч этого числа может стоять любое из цифр {2,5,8} (то есть всего 3 варианта). В разряде тысяч, сотен, десятков могут находится любые из цифр {8,5,2,0} (для каждого разряда по 4 варианта). В разряде единиц могут стоять только цифры из множества {0,5,8} (то есть 3 варианта). Применяя известную комбинаторную формулу, считаем, что всего вариантов 3*4*4*4*3=396.
подсчитаем количество возможных нечётных чисел. Ситуация со всему разрядами, кроме единиц аналогично. А вот в разряде единиц может стоять только цифры из множества {5} (один вариант). Таким образом количество возможных нечётных чисел равна 3*4*4*4*1=192.
Ответ: 396 чётных и 192 нечётных
