Var a,b,c:real;
begin
writeln('vvedite a');
readln(a);
writeln('vvedite b');
readln(b);
writeln('vvedite c');
readln(c);
if a>b then
if b>c then writeln('naimenshee=', c) else writeln('naimenshee=', b)
else if a>c then writeln('naimenshee=', c) else writeln('naimenshee=', a);
end.
1) 8гб это 8192 мб следовательно 8192:12= 682 фотографии
2)16384:320=48 клипов
3)5*30*70=10500 байт
4)256= 2^i=2^8следовательно i=8 битов
8*80*32=20480 битов
20480*2=40960 битов=5120 байт=5 килобайт
i - кол-во информации
^ - степень
Var n, amount, max_digit, copy_of_n: integer;
begin
read(n);
copy_of_n := n;
amount := 0;
max_digit := copy_of_n mod 10;
while copy_of_n <> 0 do
begin {Находим наибольшую цифру в числе}
if max_digit < copy_of_n mod 10
then
max_digit := copy_of_n mod 10;
copy_of_n := copy_of_n div 10;
end;
copy_of_n := n;
while copy_of_n <> 0 do {Считаем количество таких цифр}
begin
if copy_of_n mod 10 = max_digit
then
amount := amount + 1;
copy_of_n := copy_of_n div 10;
end;
writeln(amount);
<span>end.</span>
Program;
var a,b,c:real;
begin
readln(a,b,c);
writeln(a+b+c);
end.
(Не читать:1kadfjkadjandkansfjkankjdanksfnasfasfjasfnasfjksaf)