Var S:real;
Begin
Write('Введите сумму покупки: ');ReadLn(S);
Write('Сумма покупки с учётом скидки: ');
if S <= 1000 then WriteLn(S)
else if S > 10000 then WriteLn(S*0.8:0:2)
else WriteLn(S*0.9:0:2);
WriteLn('Без учёта скидки: ',S:0:2);
End.
Здесь есть ошибка счисления потому что 128+178=306 а не 318
Особенность заключается в разложении светового потока на цветовые составляющие.
В компьютере используется система формирования цвета RGB (RedGreenBlue).
1 00110001
5 00110101
пробел 00100000
м 11101100
a 11100000
p 11110000
т 11110010
а 11100000
H 01001000
u 01110101
n 01101110
g 01100111
a 01100001
r 01110010
y 01111001
Ответ:
Объяснение:
появится ошибка в строке x:4
после того как поправишь ее на x:=4
а write на writeln
последовательно появятся
4
16
64