В электронная книга не содержит красящих компонентов
Получим формулу для вывода. То, что находится в переменных a и b буду обозначать [a, b]:
[a, b] Ввести a, b
[a+b, b] a:=a+b
[a+b, a] b:=a-b
[b, a] a:=a-b
[b, a] <span>Вывести<span> a+b
Итак, алгоритм просто меняет местами a и b, и выводит сумму b + a.
В порядке возрастания выводов:
</span></span><span><span>3) 7 + 7 = 14
4) 9 + 6 = 15
2) 12 + 4 = 16
1) 8 + 10 = 18
5) 11 + 9 = 20</span></span>
2048*1536=>3 145 728*3=>9 437 184 byte=>9 437,184 Kb=>9,437184 Mb
Что-то такое получилось, пиши в комменты если что не так:
var
a,b,k:longint;
begin
b:=1;
k:=0;
while b<10000 do
begin
read(a);
b:=b*a;
k:=k+1;
end;
writeln('Kol:',k);
writeln('Number:',b);
readln
end.
Var
<span>
R1, R2, R3, S1, S2, S3: Integer;</span><span>
begin</span><span>
writeln('Введите размеры
рации и чемодана');</span><span>
readln(R1, R2, R3, S1, S2, S3);</span><span>
if ((R1 < S1) and (R2 < S2)
and (R3 < S3)) or</span><span>
((R3 < S3) and (R2 < S1) and
(R1 < S2)) or</span><span>
((R1 < S1) and (R2 < S3) and
(R3 < S3)) or</span><span>
((R2 < S2) and (R1 < S3) and
(R3 < S1)) or</span><span>
((R2 < S1) and (R3 < S2) and
(R1 < S3)) or</span><span>
((R1 < S2) and (R3 < S1) and
(R2 < S3)) then</span>
<span>WriteLn('ПОМЕЩАЕТСЯ')</span><span>
else</span>
<span>WriteLn('НЕ ПОМЕЩАЕТСЯ');</span>
<span>end.</span>