вторник, 27 ноября 2012 г.

Задачі

Вгадати число
 
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.

 

Комментариев нет:

Отправить комментарий