Ответ:
var
a,x,b,c: real;
begin
write('Введите стоимость покупки = ');
readln(x);
a := x/100;
a := Trunc(a);
a := a*5;
b := x/50;
b := Trunc(b);
b := b*2;
c := x*0.03;
if (a>b)and (a>c)
then
writeln('RP')
else
if (b>a) and (b>c)
then
writeln('BB')
else
if (c>a) and (c>b)
then
writeln('MM')
else
writeln('Суммы равны, Алена выбирает <MM>')
end.
<span>106
function f(x: integer): integer;
var
L, M: integer;
begin
L := x - 12;
M := x + 12;
while L <> M do
if L > M then
L := L - M
else
M := M - L;
f := L;
end;
begin
var x := 100;
var r := 0;
repeat
x := x + 1;
r := f(x);
until r = 2;
writeln(x);
end.
</span>
768*576=442368 точек
24 бита = это 3 байта
442368*3=1327104 байт - несжатая картинка
1327104\6=221184 - сжатая картинка
2Мб = 2097152 байт
2097152\221184=9 фотографий
Program
var x,y,r:real;
begin
read(x,y,r);
if (x>=0) and (y>=0) and (x^2+y^2<=r^2) and (x<=0) and (y<=0) and (x+y>= -r) then write('в точку') else write('проверь ещё раз');
end.
Word, Open Office, ,Notepad++, AkelPad, UltraEdit,Cтандартный блокнот Windows, AbiWord, WordPerfect,Notepad++, AkelPad, UltraEdit,Cтандартный блокнот Windows