Pascal срочно!! напишите программу вторую
Var a,b:real;
begin
writeln(Введите число для угадывания);
read(a);
writeln(Введите число);
repeat
read(b);
if b>a then writeln(Меньше);
if b
until b=a;
writeln(Вы угадали);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
