Срочно!!!!
Написать программу, реализующую акцию, проводимую при продаже квартир в соответствии с листовкой (вложение)
Приложения:
![](https://st.uroker.com/files/682/682963a93fc1d1481252d8dc6bbd7af8.png)
Ответы
Ответ дал:
0
var
price, prepay:integer;
begin
Write('Введите стоимость квартиры -> ');
Readln(Price);
Write('Введите предоплату за квартиру в процентах -> ');
Readln(prepay);
Case Prepay of
20:Writeln('Общая стоимость квартиры -> ', Price - Price * 0.05);
30:Writeln('Общая стоимость квартиры -> ', Price - Price * 0.06);
50:Writeln('Общая стоимость квартиры -> ', Price - Price * 0.08);
100:Writeln('Общая стоимость квартиры -> ', Price - Price * 0.1);
end;
end.
Пример:
Введите стоимость квартиры -> 1000000
Введите предоплату за квартиру в процентах -> 100
Общая стоимость квартиры -> 900000
price, prepay:integer;
begin
Write('Введите стоимость квартиры -> ');
Readln(Price);
Write('Введите предоплату за квартиру в процентах -> ');
Readln(prepay);
Case Prepay of
20:Writeln('Общая стоимость квартиры -> ', Price - Price * 0.05);
30:Writeln('Общая стоимость квартиры -> ', Price - Price * 0.06);
50:Writeln('Общая стоимость квартиры -> ', Price - Price * 0.08);
100:Writeln('Общая стоимость квартиры -> ', Price - Price * 0.1);
end;
end.
Пример:
Введите стоимость квартиры -> 1000000
Введите предоплату за квартиру в процентах -> 100
Общая стоимость квартиры -> 900000
Вас заинтересует
2 года назад
8 лет назад
8 лет назад
8 лет назад