Вычислить скидку в оплате за товар, первоначальная ставка которой определяется суммой цифр в номере квартиры, указанного в прописке. Если суммма покупки более 20 000, то сумма скидки увеличивается на 1%, если более 40 000, то увеличивается на 2%. Исходные данные: Номер квартиры, сумма покупки. (Номер квартиры не более 3 цифр) Определить ставку скидки (%) Решить в программе Excel с функции если

Вот у тебя а, b и c интеджер (целые)

Первое действие, которое ты делаешь: С= a+b

a+b = целое + целое = целое, ошибки нету

Второе действие: С = a-b = целое - целое = целое, ошибку не выдает.

А вот далее ты делишь целое на целое. C= a/b

Предположим что а = 5, b=2. С =5/2= 2.5

Но задано то С у тебя как целое...

В общем чтобы не было конфликтов с остатком от деления, делением и делением без остатка, замени в варе

integer на real.

А еще учитель может придраться что d объявлена, но не используется))

Удали строчку с объявлением d

var

 number: integer;

begin

 var size := readinteger;

 var max := -32768;

 for var i := 1 to size do

 begin

   number := readinteger;

   if (number mod 4 = 0) and (number > max) then

     max := number;

 end;

 write(max);

end.

Объяснение:

var

 number: integer;  // Целочисленная переменная, хранящая вводимые с клавиатуры числа

begin  // Начало программы

 var size := readinteger;  // Считываем размер последовательности с клавиатуры

 var max := -32768;  // integer принадлежит диапазону [-32 768…32 767], взял за максимум самое маленькое число

 for var i := 1 to size do  // Идём от 1 до размера последовательности

 begin  // Начало цикла

   number := readinteger; // Считываем число последовательности с клавиатуры

   if (number mod 4 = 0) and (number > max) then  // Если число делится на 4 без остатка и оно > max

     max := number;  // max присваиваем number

 end;  // Конец цикла

 write(max);  // Выводим ответ

end. // Конец программы