Алгоритм линейный, протокол работы такой:
Введите значение переменных a и b:
24
-85
c= -61
d= -122
d= -119
d= -118
Значение выражения равно -118
Идею электронных таблиц впервые сформулировал американский учёный австрийского происхождения Рихард Маттезих, опубликовав в 1961 г. исследование под названием «Budgeting Models and System Simulation». Концепцию дополнили в 1970 г. Пардо и Ландау, подавшие заявку на соответствующий патент. Патентное ведомство отклонило заявку, но авторы через суд добились отмены этого решения.<span>Общепризнанным родоначальником электронных таблиц как отдельного класса ПО является Дэн Бриклин, который совместно с Бобом Фрэнкстоном разработал программу VisiCalc в 1979 г. Эта электронная таблица для компьютера AppleII стала очень популярной, превратив персональный компьютер из игрушки для технофилов в массовый инструмент для бизнеса.</span>
<em>// PascalABC.NET 3.2, сборка 1363 от 17.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function gcd(a,b:int64):int64; // НОД
begin
while b<>0 do begin a:=a mod b; Swap(a,b) end;
Result:=a
end;
begin
Writeln(gcd(gcd(36,54),gcd(18,15)))
end.
<u>Результат</u>
3
Const n=10;
var a:array[1..n] of integer;
max,i:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=random(21)-10;
write(a[i],' ');
end;
writeln;
max:=a[1];
for i:=2 to n do
if a[i]>max then max:=a[i];
writeln('max = ',max);
for i:=1 to n do
if a[i]=max then write(i:3);
writeln;
end.
Пример:
Исходный массив:
-6 -9 10 -6 0 0 -8 10 -8 2
max = 10
3 8
Г) Оперативная памать (ОП) - это внутренняя память. А все остальное внешняя память.