tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Если покупка равна 500
Если покупка равна 500 и больше,то предоставляется скидка в 10%,если сумма покупки 1000 и больше,то скидка=20% как будет выглядеть в паскале?
БЛОБ
2 10.08.2019 09:00
0
Ответы
Kybikowskatana
04.10.2020 08:58
Var
x,y : integer;
begin
readln(x);
y:= x;
if x >= 500 then y := (x * 90) / 100;
else if x >= 1000 then y:= (x*80) / 100;
else print('Скидки нет');
print(y);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
969696ааа
09.10.2019 20:03
приклад інформаційного процесу!...
alisatcheredinp0805h
09.10.2019 20:00
Дан алгоритм на языке грис: шаг шаг поворот поворот поворот шаг шаг прыжок прыжок прыжок шаг шаг поворот поворот поворот шаг шаг прыжок прыжок прыжок шаг шаг поворот поворот поворот...
alishraup
09.10.2019 19:59
создайте анонимную функцию, которая будет применять массив в качестве аргумента и отображать каждый элемент из этого массива. поместите эту анонимную функцию в переменную $i_am_anonymous....
ВикаЛук1
25.03.2019 06:20
Составьте программу, которая заполняет массив [1..10] случайными целыми числами в диапазоне от 1 до 10, затем меняет местами первый и последний элементы. выведите на экран исходный...
10count
25.03.2019 06:20
Дать определение каждому слову: вкладка, список, расскрывающийся список, счётчики, флажки,ползунки,командные кнопки,переключатель,текстовое поле,контекстивное меню! (это элементы...
sashaloxas
25.03.2019 06:20
Валгоритме записанном ниже используются переменные а и b символ : = обозначает оператор присвоения знаки +* и / - соответственно операции сложения вычитания умножения и деления....
vika05lida811
10.12.2021 07:12
Автозавод выпускает автомобили 4-х видов: W, X, Y, Z, (Хат, Седан, Джип, Вагон). Ежемесячно он может выпускать не более 1000 автомобилей (при этом каждого типа - не меньше 100)....
25000h
10.12.2021 07:11
Создайте структуру базы данных «Соревнования по фигурному катанию. Предусмотрите не менее 3 табли. В каждой таблице должно быть не менее 5 полей различных типов данных Покажите...
danilaman
06.02.2021 18:48
2. В чём выражается свободная воля человека в Таинстве Крещения?...
katyaadushkina3006
06.02.2021 18:48
КАКОЙ СЕЙЧАС ГОД АХПХА ПХПХ...
Популярные вопросы
Сплав магнію з міддю масою 27 г розчинили в надлишку хлорної кислоти. При цьому...
3
Надо составить домик по координатам там где могут быть числа с + и - зарание...
1
Обчисліть масу етилового спирту який утворився під час стиртового бродіння...
3
Схарактеризуйте релігійний склад населення України....
3
1. Зялёнаю хвалу.й ракі гайдаецца жыта, краса Белару-сікалоссем цалуе блакіт...
2
При яких значеннях вектори а (2;-3;8) і в(-7;-2;а) перпендикулярні?...
2
СОР по русскому языку 1 Сор 4 четверть День победы ....
3
ЖЕЛАТЕЛЬНО С РИСУНКОМ. Сторона ромба утворює з одніх з його діагоналей кут...
2
1. Прикладку вжито в реченніАКріпак, незграба, злидень, гайдамака... Чи це...
1
Найдите предложение с косвенной речью, которая правильно оформлена и соответствует...
2
x,y : integer;
begin
readln(x);
y:= x;
if x >= 500 then y := (x * 90) / 100;
else if x >= 1000 then y:= (x*80) / 100;
else print('Скидки нет');
print(y);
end.