1. Информатика
  2. Как в паскале написать

Как в паскале написать более чего-то пример: если покупатель покупает товар 1000 и более то скидка 10% как это записать на пачкале

Котоман228 Котоман228    2   30.09.2019 17:01    0

Ответы
Oleg009988 Oleg009988  09.10.2020 05:53

var x,y:real;

begin

write('cuma=');

readln(x);

if x>=1000 then

begin

y:= (x/100)*10;

x:=x-y;

end;

writeln('skidka=',y:0:0);

writeln('cuma=',x:0:0);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Helponator Helponator  15.04.2021 13:25
В чем вы видите различие между телевизором и TV-тюнером...
kriss89898341608 kriss89898341608  15.04.2021 13:25
1) Составьте программу, в которой продавец спросит у Вас, сколько шоколадок и по какой цене Вы собираетесь купить, и назовет Вам стоимость вашей покупки. 2) Составьте программу,...
voVIK2008 voVIK2008  24.06.2019 11:23
Система полнотекстового поиска находит документы, содержащие ключевые слова. к системе делаются запросы и в ответ возвращаются документы, удовлетворяющие условиям запроса. для...
zincenkoe759 zincenkoe759  24.06.2019 11:25
Даны два логических выражения: x(a,b) = a и b или не a и не b y(a,b) = a и b или b найдите логическую функцию f(x,y), такую, что если вместо x и y подставить заданные выше логические...
kulikovamascha kulikovamascha  24.06.2019 11:28
Вычислить время, необходимое для передачи модемом текста, размером 14000 байт со скоростью 56 мб/с: 0,25 мс 2 мкс 2 с 2 мс...
116541 116541  24.06.2019 11:33
Телефон вообще не видит сд карту а надо отформатировать компа нет что делать? перезагрузку делала, батарею не вытащить, уже 2 сд карта так навернулась за 1 месяц !...
Женёк2006457 Женёк2006457  24.06.2019 11:33
Петя сохранил некоторый текст, состоящий из 8192 символов, с использованием двухбайтной кодировки unicode. вася заметил, что в тексте встречаются далеко не все символы, возможные...
mariakochmar mariakochmar  24.06.2019 11:35
Процедура обработки строки состоит из трех последовательных операций: заменить в строке все символы a на подстроку bc заменить в строке все символы b на подстроку aс заменить...
Артем1526 Артем1526  24.06.2019 11:49
Компьютерная логика, , завершите решение (:...
chcuvivhcyxu chcuvivhcyxu  26.11.2021 14:45
Каждый логический раздел жёсткого диска имеет ......

Популярные вопросы