Что не так? program z5; var n,n1:real; begin repeat writeln ('Введите число'); read (n); while nlt;0 do begin
Что не так?
program z5;
var n,n1:real;
begin
repeat
writeln ('Введите число');
read (n);
while n<0 do
begin
writeln ('Введено неправильное число. Число не должно быть отрицательным.');
read(n);
end;
n1:=sqrt(n);
writeln ('Квадратный корень',n1);
end.
Гость
Ответ(ы) на вопрос:
Гость Зачем тебе там "repeat"? Убери его)
И он не так оформляется.
Пример: Repeat b:=b/2;
Не нашли ответ?
Похожие вопросы