Регистрация
Konopleva1947lina
21.01.2020 06:02
Информатика
Есть ответ 👍

Написать программу вычисления стоимости покупки с учетом скидки. скидка в 10% предоставляется, если сумма покупки больше 1000 руб

196
497
Посмотреть ответы 2

Ответы на вопрос:

beynyadima
beynyadima
4,5(67 оценок)
Var a ,b : real; begin writeln ( 'enter price: ' ); readln (a ); b : = 10; b : =a /b; if (a> 1000 ) then begin writeln ( 'discount 10%' ); a : =a -b; write ( 'price with discount: ' ,a : 2 : 2 ); readln; end else begin write ( 'price: ' ,a : 2 : 2 ); readln; end; end.
mokeevayulichk48
mokeevayulichk48
4,7(16 оценок)
Var a: array[1.. 1000] of integer; i,s: integer; begin write('введите размер массива n=');   readln(n); s: =0; for i: =1 to n do if  a[i]mod 2 =1 then s: =s+a[i]; writeln('сумма нечетных чисел массива равна ' , s); end.

Популярно: Информатика