Даю 30 балов помогите с информатикой. надо написать программу в Паскаль АВС.. Created by yayackupova. informatika-ru

Даю 30 балов помогите с информатикой. надо написать программу в Паскаль АВС...

August 2022 2 9 Report

Даю 30 балов помогите с информатикой. надо написать программу в Паскаль АВС.

Var a,b:real;
begin
readln(a);
if (a>=0)or(a>100) then b:=sqrt(a) // (a>100) здесь лишнее!
else b:=abs(a);
writeln(b:5:2);
end.

Пример:
20
4.47

1 votes Thanks 1

yayackupova if (a>=0)or(a>100) then b:=sqrt(a) // (a>100) здесь лишнее!

yayackupova как это понять ? что здесь лишнее

yayackupova обьясни

kprof Число которое больше 100 не может быть отрицательным

kprof Var a,res: double;
begin
a := 100;
if a>100 then res := sqrt(a)
else res:=abs(a);
writeln(res:5:2)
end.

0 votes Thanks 0