<span>var a,b: integer;
function NOD(x,y: integer): integer;
begin
if x<>0 then NOD:=NOD(y mod x,x) else NOD:=y;
end;
</span><span>begin
readln(a,b);
writeln( 'НОД = ', NOD(a,b) );
end.</span>
Запомните на будущее:
параллелограмм - обозначает ввод-вывод
прямоугольник - операции
овалы- начало/конец
ромб сплюснутый - условие
ромб с продолговатыми сторонами (похож на обозначающиеся знаки в древности, сделанные с помощью дерева) - цикл
ЕСЛИ вам нужно будет написать данную программу, то не забудьте правильно указать скобки "((5-x)y)/3".
Var a,i,b:longint;
begin
b:=1;
readln(a);
for i:=2 to a do
b:=b*i;
writeln(b);
<span>end.
вторую извини, не знаю.</span>
<span>Математическая теория чисел. Понятие систем счисления. Применения двоичной системы счисления. Компьютерная техника и информационные технологии. Алфавитное неравномерное двоичное кодирование. Достоинства и недостатки двоичной системы счисления.
Ну как то так!</span>