Вопрос по информатике:
Помогите пожалуйста! Не знаю в чем ошибка, и так и сяк исправлял не получается (
Пожаловаться
- 08.03.2017 02:33
- Информатика
- remove_red_eye 6664
- thumb_up 8
Ответы и объяснения 1
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.
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.
Пожаловаться
- 10.03.2017 00:09
- thumb_up 46
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы