Вычислить стоимость покупки со скидкой - Pascal ABC

  1. В чем ошибка?


textual

Код:

program z;
var a:real;
begin
writeln ('введите стоимость покупки');
readln (a);
if (a>500)and(a<=1000) then b:=a/100*97 else
if a>1000 then b:=a/100*95;
writeln ('ответ', b);
end.


Похожие ответы
  1. Вычислить сумму ряда

  1. Ввести трехзначное число .Вычислить корень квадратный второй цифры

  1. Помогите решить, пожалуйста Вычислить y=tg(x+2)+ctg^2x(ctg(x+1)-tgx), при х=30 градусов, оформив в виде функций вычисление тангенса и котангенса.

  1. Нужно написать программу, в которой пользователь вводит альфа(alpha), а программа бы считывала z1=cos в квадрате от разности ((3/8)*pi-(alpha/4))-cos в квадрате от суммы ((11/8)*pi+(alpha/4)) z2=(корень из 2-х/2)*sin от дроби (alpha/2)

  1. Вычислить значение выражения. При этом найти область определения функций и обеспечить необходимую реакцию программы на некорректные ситуации.

  1. Вычислить значение выражения. При этом найти область определения функций и обеспечить необходимую реакцию программы на некорректные ситуации.

  1. Треугольник задан координатами своих вершин. Вычислить длины сторон треугольника. Для нахождения длин сторон треугольника воспользуемся формулой нахождения расстояния между двумя данными точками s = ((x2 - x1)^2+(y2-y1)^2)^(1/2), где (x1,y1) и (x2, y2) - это координаты начала и конца отрезка. Пожалуйста помогите решить)

  1. Составить алгоритм и написать решение задачи на Паскале: Вычислить: где х - произвольное число, введенное пользователем с клавиатуры. Помогите пожалуйста! Решение желательно на уровне 10-11 класса.

  1. Вычислить функцию у = 2х^2 - 8Sinх (-2< х >3). Шаг изменения аргумента задавать с клавиатуры. Найти ее минимум и максимум. Вывести в виде таблицы результаты вычислений.