Написать программку на паскале и нарисовать блок схему. Цены покупки с

Написать программку на паскале и нарисовать блок схему. Цены покупки с учетом скидки в 10%, если сумма покупки больше 1000 рублей
Сумма покупки 1200 со скидкой 1090

Задать свой вопрос
Санек Саломенцев
1200 - скидка 10% = 1080
1 ответ
Var s:real;
begin
write('s='); readln(s);
if sgt;1000 then s:=s-0.01*s;
writeln('S=',s); 
end.

Пример:
s=1200
S=1020

Блок-схема - в прилагаемом файле
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт