Pascal. найти нод чисел a и b алгоритмом евклида и вывести сколько шагов цикла вычисления нод было произведено.
(вычисление нод без вывода шагов):
while a< > b do begin
if a> b then
a: =a1-b1
else
b : = b-a;
das: =b;

ответ: Значения, на основе которых выполняются вычисления. Аргументы вводят в круглых скобках сразу после имени функции. Аргументами могут быть числа, адреса ячеек, текст, выражения, содержащие другие функции.

Функции, используемые на уроках математики.

СУММ(В2:В5) – вычисление суммы числовых значений диапазона ячеек начиная с В2 до В5.

СУММ(В2:В5;100;К4) – вычисление суммы числовых значений диапазона ячеек В2:В5, числа 100 и значения ячейки К4.

СУММЕСЛИ(В2:В5;”>10”) – вычисление суммы чисел, больших 10, из диапазона ячеек В2:В5.

СРЗНАЧ(В2:В5) – вычисление среднего значения для диапазона ячеек В2:В5.

МАКС(В2:В5) – вычисление максимального значения из диапазона ячеек В2:В5.

МИН(В2:В5) – вычисление минимального значения из диапазона ячеек В2:В5.

СЧЕТ(В2:В5) – подсчёт общего количества чисел из диапазона ячеек В2:В5.

СЧЕТЕСЛИ(В2:В5;”<5”) – вычисление количества чисел меньших 5, из диапазона ячеек В2:В5.

СТЕПЕНЬ(В1;А4) – вычисление значения степени с основанием В1 и показателем степени А4.

КОРЕНЬ(В1) – вычисление значения квадратного корн

Var        
R1, R2, R3, S1, S2, S3: Integer;        
begin             
writeln('Введите размеры рации и чемодана');             
readln(R1, R2, R3, S1, S2, S3);             
 if ((R1 < S1) and (R2 < S2) and (R3 < S3)) or             
((R3 < S3) and (R2 < S1) and (R1 < S2)) or             
((R1 < S1) and (R2 < S3) and (R3 < S3)) or             
((R2 < S2) and (R1 < S3) and (R3 < S1)) or             
 ((R2 < S1) and (R3 < S2) and (R1 < S3)) or             
((R1 < S2) and (R3 < S1) and (R2 < S3)) then
WriteLn('ПОМЕЩАЕТСЯ')  
 else
WriteLn('НЕ ПОМЕЩАЕТСЯ');
end.