Что не так?program z5; var n,n1:real; begin repeat writeln ('Введите число'); read (n); while n меньше 0 do begin writeln ('Введено неправильное число. Число не должно быть отрицательным.'); read(n); end; n1:=sqrt(n); writeln...
Что не так?
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;
Не нашли ответ?
Похожие вопросы