Var a,b,k:integer;
begin
readln(a,b);
k:=0;
while a*b<>0 do begin
if a>b then a:=a-b else b:=b-a;
k:=k+1;
end;
writeln(k);
end.
Пример:
4200 9126
22
1 var
2 a, b, c, u, s: real;
3 Beging
4 Witeln('Введите стороны A, B , угол через пробел:');
5 readln(a, b, u);
6 c:= sqrt(sqr(a) + sqr(b) - 2 * a * b * cos(u * (pi / 180)));
7 s:= 0.5 * a * b * sin(u * (pi / 180));
8 Writeln('S: ', s:0:2);
writeln('P: ', a + b + c:0:2);
9 End.
1.Типографские литеры определённого размера и рисунка для набора, а также отпечаток их.2.Гарниту́ра<span> в </span>типографике<span> — набор из одного или нескольких </span>шрифтов в одном или нескольких размерах и начертаниях, имеющих стилевое единство рисунка и состоящих из определённого набора типографских знаковформатирование текста<span> — Подготовка текста документа к выводу на печать в необходимой для этого форме. Включает в себя форматирование абзацев, отдельных символов, заголовков, сносок, колонцифр и т.д. </span>.
Функция Foo() принимает указатели на 2 массива (я так понял, что это нужно по заданию), а там уже вызывается функция, которой передаётся указатель только на 1 массив.