Раскодировка в понятный формат
Var p1, p2, p3, p4, p5:integer;
uses crt;
begin
writeln('Введите цену 1 товара:');
readln(p1);
writeln('Введите цену 2 товара:');
readln(p2);
writeln('Введите цену 3 товара:');
readln(p3);
writeln('Введите цену 4 товара:');
readln(p4);
writeln('Введите цену 5 товара:');
readln(p5);
writeln('Цена вашей покупки составляет ',p1+p2+p3+p4+p5);
end.
P.S. Надеюсь на Лучший ответ.
16 цветов = 2^4 - 4 бита на пиксель
Если ничего в рисунки не менялось кроме глубины цвета, то очевидно что
глубина цвета была 4*2 = 8 бит на пиксель
Кол-во цветов в палитре = 2^8 = 256 цветов
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function ДробьНесократима(Чис,Знам:integer):boolean;
begin
while Знам<>0 do begin Чис:=Чис mod Знам; Swap(Чис,Знам) end;
Result:=Чис=1
end;
begin
for var Знаменатель:=2 to 7 do
for var Числитель:=1 to Знаменатель-1 do
if ДробьНесократима(Числитель,Знаменатель) then
Write(Числитель,'/',Знаменатель,' ');
Writeln
end.
<u>Результат</u>
1/2 1/3 2/3 1/4 3/4 1/5 2/5 3/5 4/5 1/6 5/6 1/7 2/7 3/7 4/7 5/7 6/7