Var s:real;
begin
write('Сумма покупки = ');
readln(s);
if s>100 then writeln('Скидка = ',s*0.1)
else writeln('Скидка = ',s*0.05);
end.
Пример:
Сумма покупки = 200
Скидка = 20
Ответ №1
С файлом ничего не приключилось, где был, там и лежит
1. С:\учёба\математика\ГИА\Расписание
2. С:\учёба\Расписание
3. D:\2013\Зима\Январь\Вьюга.doc
<span>4. D:\2013\Весна\Май\Ландыш.doc
Остальные задания повторяются.</span>
Объяснение:
3*10^4+2*10^3+6*10^2+7*10^1