close

Вход

Забыли?

вход по аккаунту

?

alg2cikl

код для вставкиСкачать
Даны два натуральных числа X и Y. Найти их наибольший общий делитель NOD . ( алгоритм Евклида )
1-й способ: I 2-й способ:
I
BEGIN readln (x , y); I BEGIN readln (x , y); While x <> y do I repeat
If x > y I r:=x mod y;
then x := x - y I if r=0 then nod:=y
еlse y := y - x ; I else begin x:=n; Writeln ( ' nod = ', x ) ; I n:=r;
END. I end; I until r=0;
I writeln('nod = ',nod);
Задано число N. Определить старшую (первую) цифру числа и разрядность числа.
BEGIN readln (n);
A:=n; R:= 1;
While A > 10 do
begin
A:= A div 10 ;
R:=R*10; end;
Writeln ( ' старшая цифра числа ' , N , ' равна ' , A );
Writeln ( ' разрядность числа ' , N , ' равна ' , R );
End.
Дана последовательность чисел . Определить является ли последовательность возрастающей ?
BEGIN readln ( k ); { размер последовательности }
Readln (a); { первое число последовательности }
I :=2;
Fl:= true;
Repeat
Readln ( b ) ;
If a < b then begin a:= b ; inc ( i ) end Else Fl := false ;
Until ( Fl = false ) or ( i > k ) ;
If Fl then writeln ( ' последовательность возрастающая ' )
Else writeln ( ' последов - ность не возрастающая ) ;
END.
Документ
Категория
Без категории
Просмотров
6
Размер файла
24 Кб
Теги
alg2cikl
1/--страниц
Пожаловаться на содержимое документа