Есть ответ 👍

Укажите адрес выделеных диапазоных ячеек ​

287
458
Посмотреть ответы 1

Ответы на вопрос:

tolkov05
4,6(9 оценок)

Объяснение:

var i, s:Real;

begin

i:=0;

readln(s);

if s >=0 then begin

i:=sqrt(s)+s*2;

writeln(i:0:2);

end

else begin

 writeln('False');

end;

end.

Популярно: Информатика