Помогите найти ошибку в Паскаль-программе:

Открытый ответов : 0 27 Опубликовано в: Образование
0
procedure Zadanie_4;
Uses CRT;
var w, L:real;
label finish;
begin
Clrscr;
writeln (‘start’);
writeln (‘Vvedit zminnu w’);
write (‘   w =     ’);
readln(w);
if w=7 then goto finish
else
begin
if w>7 then
L:=(1+w)/w
             else
L:=1.5*?(|w-1| );
end;
writeln (‘ Vidpovid:  L =   ’, L:9:3);
finish: writeln (‘    Kinets    ’);
end;

Ваш ответ

Ваше имя:
Капча:

Поделиться с друзьями

107,581 вопросов

36,792 ответов

8,087 комментариев

9,870 пользователей

Яндекс.Метрика
...