Помогите пожалуйста! Не знаю в чем ошибка, и так и сяк исправлял не получается (
Answers & Comments
azatnorem
Var t,s1,s:real; begin readln(s); if (s>=5000) and (s<=10000) then begin s1:=s*3/100; t:=s-s1; writeln(t); end else if s>10000 then begin s1:=s*8/100; t:=s-s1; writeln(t); end else writeln('dsdsds'); end.
Answers & Comments
t,s1,s:real;
begin
readln(s);
if (s>=5000) and (s<=10000) then
begin
s1:=s*3/100;
t:=s-s1;
writeln(t);
end
else
if s>10000 then
begin
s1:=s*8/100;
t:=s-s1;
writeln(t);
end
else
writeln('dsdsds');
end.