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;

Ваш ответ

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

Вопрософ.нет Задавайте любые вопросы и получайте быстрые ответы на них. Задать вопрос и получить ответ легко! Поделись своими знаниями с другими участниками сервиса!

Задайте ваш вопрос::