Паскаль:Написать программу, которая в случае если товар стоит 200 евро или больше, то даёт скидку 10 %
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Защита файлов от копирования". реферат по икт.
Автор: Arzieva Abdulmanov1438
Определить значение переменной c после выполнения программы никак не могу решить.
Автор: Konstantin_Vadimirovich
Можно ли как-то переделать чтобы было не ToPoint а
Автор: Zeitlinama7067
Переведите 16 ричные числа в 8 ричные числа: 149 14b 178 17c 15a
Автор: Yelena Dilyara
Информатика 8 класс, программирование. заранее
Автор: Igor120
Для ввода в оперативную память значений переменных используется оператор
Автор: Olenkalebedeva4477
За на відкритя інтернет клубу дуже на завтра треба
Автор: NikolayGoncharov
Заполните таблицу трассировки для тестирования алгоритма
Автор: Корнеплодович1930
var a:real;
begin
writeln ('Введите цену товара:');
begin
readln(a);
if (a>=200) then
a:=a-(a/10)
else
a:=a;
writeln('С учётом всех скидок товар стоит',' ',a,' ', 'евро');
end;
end.