Задачі

Знайти кількість цифр у цілому числі.

Program c0;

Uses crt;

Var n,k:integer;

Begin

ClrScr;

Writeln('введіть число');

readln (n);

k:=0;

while n>0 do

begin

n:=n div 10;

k:=k+1;

end;

writeln('кількість цифр =',k);

readln;

end.

Ввести дріб а / б. Визначити,  Чи дріб є скоротний. (Дріб є нескоротним, якщо НСД (A, B) = 1.

Program cikl_15;

uses crt;

var m,n : longint;

begin

clrscr;

write('чисельник ');readln(m);

write('знаменник ');readln(n);

while m<>n do

if m>n

then m:=m-n

else n:=n-m;

n:=m;

if n=1

then write('скорочений')

else write('нескорочений');

readln;

end.