<span>1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
<span>var
a, b, c, x, y, z: integer;
Summa1, Summa2: integer;
begin
write('Яблоки(руб/кг): ');
readln(a);
write('Груши(руб/кг): ');
readln(b);
write('Апельсины(руб/кг): ');
readln(c);
writeln;
writeln('Понедельник: ');
write('Продано кг яблок: ');
readln(x);
write('Продано кг груш: ');
readln(y);
write('Продано кг апельсинов: ');
readln(z);
Summa1:=x*a+y*b+z*c;
writeln;
writeln('Вторник: ');
write('Продано кг яблок: ');
readln(x);
write('Продано кг груш: ');
readln(y);
write('Продано кг апельсинов: ');
readln(z);
Summa2:=x*a+y*b+z*c;
writeln;
writeln('Понедельник: ', Summa1, ' руб; Вторник: ', Summa2, ' руб');
end.</span></span>
1) Обьемный алгоритм
2) Если есть циклы (огромное количество итераций)
3) Выполнение сложных вычислительных операций
473(8) = 4*8^2 + 7*8^1 + 3*8^0 = 4*64 + 7*8 + 3 = 256 + 56 + 3 = 315(10)
Var x,y,z:integer;
begin
x:=13;
y:=3;
z:=x;
x:=z div y;
y:=x;
writeln(x+' '+y+' '+z);
end.
Ответ
<span>3)x=4, y=4, z=13</span>