Var price, k, s: real;
begin
write('Цена: ');
readln(price);
write('Количество: ');
readln(k);
s:=price*k;
if (k>100) and (k<=3001) then s:=s*0.95;
if k>300 then s:=s*0.9;
writeln('Итого:', s);
end.
38=100110
18=100101
(если надо вычитать100110-100101= 10-1=9)
Var d,a: integer;
begin
write('Диаметр пробоины: ');
readln(d);
write('Сторона куска фанеры: ');
readln(a);
if a>d then writeln('Пробоину можно заделать')
else writeln('Пробоину заделать нельзя');
end.
Пример:
<span>Диаметр пробоины: 5
Сторона куска фанеры: 6
Пробоину можно заделать</span>
Заходишь в корзину : Ищешь нужный файл Затем жмешь свойства : И там написано : Источник (то есть где он находился)
1Мбайт (двоичный) = 1024*1024 (Кбайт*Кбайт)
65536цветов=2^16=2байта
2*640*480точек/М= 0.59Мбайт