Program plochad;var a,c:real;beginwriteln ('Введи длину стороны a=');readln (a);if a < 0 then writeln ('Число не может быть отрицательным! Введите другое число.');writeln ('Введи длину основания c=');readln (c);if c < 0 then writeln ('Число не может быть отрицательным! Введите другое число.');c:= a*c/2;if c<0 then write ('Невозможно решить') else writeln ('S=',c);end.
8 цветов кодируются 2^n=8, n=3 битам
Объем видеопамяти
640 * 350 * 3 = 672 000 бита
<span>512 цветная палитра требует
2^n=512, n=9 бита
672 000 / 9 = 74666,67 бита на изображение
Изображение может быть например</span><span>
600</span> * 124 точек
часть памяти останется свободной
74666 - 600 * 124 = 266 бита
Var
s: real;
begin
write('Введите сумму покупки: ');
readln(s);
if s > 1000 then
s := s * (1 - 0.05)
else if s > 500 then
s := s * (1 - 0.03);
writeln('Сумма покупки с учетом скидки: ', s);
end.