Точная задача по Техническому Заданию:
var x,y:integer;
begin
writeln('введите два числа');
readln(x);
readln(y);
if (x<1000000001) and (y<1000000001) and (x>0) and (y>0)
then writeln('сумма чисел =',x+y)
else writeln('диапазон чисел неверный');
end.
Если вдруг вам поверит учитель, можете перевыполнить поставленную задачу:
var x,y:integer;
s:string;
begin
randomize;
writeln('взять ли числа случайными? Ответ да или нет');
readln(s);
if (s='да') or (s='Да') or (s='ДА') or (s='дА') then begin
x:=random(1000000000);
y:=random(1000000000);
writeln('сумма чисел =',x+y);
writeln('произведение чисел =',x*y);
end
else begin
writeln('введите два числа');
readln(x);
readln(y);
writeln('сумма чисел =',x+y);
writeln('произведение чисел =',x*y);
end;
end.
Для начала рассмотрим число 0.000041. Нам нужно преобразовать данное число в дробь, у которой первая цифра после запятой неравна 0. Всего в записи 5 нулей, следовательно это число можно записать как 4.1*10^(-5).
Получаем такое выражение: 4.1*10^(-5)*10^2
Складываем степени десяток, так как основания одинаковые. Получаем 4.1*10^(-3).
1)выделить текст
2)нажатием правой кнопкой нажать копировать
3)открыть нужный файл нажать правую кнопку и нажать вставить
Var a,b,c,x,y:real;
begin
writeln('Введите рёбра кирпича через пробел');
readln(a,b,c);
writeln('Введите размеры дыры');
readln(y,x);
if (a<c) and (b<c) then begin if (a<x)and(b<y) or (a<y) and (b<x) then write('Пройдёт')end
else if (b<a) and ((b<x)and(c<y) or (b<y) and (c<x) ) then write('пройдёт')
else if (a<y) and ((c<x)and(a<y) or (c<y) and (a<x)) then write('пройдёт')
else write ('не пройдёт');
<span>end.</span>
I = (x*y)*i
N=2^i
I-вес картинки в битах.. 128кбайт=128 *1024*8=1048576 (бит)
(x*y)-разрешение (1024*512)
i- глубина(битность) кодирования одного пикселя
N- количество цветов в палитре
из первого уравнения выражаем i=I / (x*y) = 1048576 / (1024*512) =2 (бита)
тогда N = 2^2=4
от-т: в палитре 4 цвета