задачі

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

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.

Задачі

Вгадати число
 
var
    a,b: integer;

begin
    randomize;
    a := random(100);

    while a <> b do begin
        write('Введіть число: ');
        readln(b);
        if b > a then
            writeln('Багато')
        else
            if b < a then
                writeln('Мало')
            else
                writeln('Вгадал');
    end;

readln
end.

Написати програму, яка виводить квадрати цілих чисел на проміжку від  A до B.

var a,b:integer;k:real;
begin
writeln('a,b');
readln(a,b)
while a<>b
 begin
 k:=sqr(a);
writeln(k);
a:=a+1;

end;
 end.