Помогите пожалуйста! Не знаю в чем ошибка, и так и сяк исправлял не получается (
Помогите пожалуйста! Не знаю в чем ошибка, и так и сяк исправлял не получается (
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы