pascal безотлагательно!! напишите программу вторую

Pascal безотлагательно!! напишите программу вторую

Задать свой вопрос
1 ответ
Var a,b:real; 
begin 
writeln('Введите число для угадывания'); 
read(a); 
writeln('Введите число'); 
repeat 
read(b); 
if bgt;a then writeln('Меньше'); 
if blt;a then writeln('Больше'); 
until b=a; 
writeln('Вы угадали'); 
end. 
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт