close

Вход

Забыли?

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

?

alg1cikl

код для вставкиСкачать
Задано число М. Найти сумму цифр числа М.
BEGIN readln (m );
N:=m;
Sum:=0;
While n>0 do
Begin
Sum:= sum+n mod 10 ;
N:=n div 10 ;
End;
Writeln ( ' сумма цифр числа ' , M , ' равна ' , sum );
END.
Задано число N. Определить простое ли оно ?
BEGIN readln ( n );
F:=true ;
I:=2;
While ( i <= n div 2 ) and ( f ) do
If n mod i = 0 then f := false
else inc ( i ) ;
If f then writeln ( ' число простое ' )
else writeln ( ' число не простое );
End.
Задано число M. Определить симметрично ли оно ?
BEGIN readln (m );
N:=m;
A:=0;
While n > 0 do
Begin
A:= A * 10 + n mod 10 ;
N:=n div 10 ;
End;
If A = M then writeln ( ' симметрично ' )
else writeln ( ' не симметрично ' ) ;
END.
Даны два натуральных числа 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.
Документ
Категория
Рефераты
Просмотров
12
Размер файла
29 Кб
Теги
alg1cikl
1/--страниц
Пожаловаться на содержимое документа