Сентябрь 18th, 2013 
admin Пример нахождения НОД двух натуральных чисел
- простой способ:
Program nod;
Var A, B, C: Integer;
Begin
Repeat
write (‘Введите число А: ’);
read (A);
if A<1 then writeln (‘ошибка, число < 1 !’);
Until A>=1;
Repeat
write (‘Введите число B: ’);
read (B);
if B<1 then writeln (‘ошибка, число < 1 !’);
Until B>=1;
Repeat if A<B then
Begin
C:=A;
A:=B;
B:=C;
End;
A:=A mod B
Until A:=0;
Writeln (‘НОД= ’, B);
End.
- пример нахождения с процедурой
Program NODPROC;
Var A, B, C: Integer;
Procedure vvod (x: Char; Var Y: Integer);
Begin
Repeat
Write (‘Введите число ’,x, ‘: ’);
Read (Y);
If Y<1 then Writeln (‘Ошибка, число < 1 !’);
Until Y>1;
End;
Begin
Vvod (‘A’, A);
Vvod (‘B’, B);
Repeat if A
Begin
C:=A;
A:=B;
B:=C;
End;
A:=A mod B
Until A:=0;
Writeln (‘НОД= ’, B);
End.
. массив и его виды
Опубликовано в рубрике