16.05.2017, 22:56
|
#11 (permalink) |
|
Banned
Регистрация: 06.03.2017
Сообщений: 788
Сказал(а) спасибо: 0
Поблагодарили 18 раз(а) в 4 сообщениях
Репутация: 5680
|
Чем экран не бумага? Или письмом почтой Россия Вам выслать? |
|
|
|
16.05.2017, 22:56
|
|
|
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Посмотрите, возможно проблема уже решалась с похожих топиках Перевести на русский язык документ с сохранением форматирования. Помогите написать блок схему Помогите создать блок-схему Помогите составить блок-схему |
|
16.05.2017, 23:06
|
#13 (permalink) |
|
Banned
Регистрация: 06.03.2017
Сообщений: 788
Сказал(а) спасибо: 0
Поблагодарили 18 раз(а) в 4 сообщениях
Репутация: 5680
|
Код:
var s,i: integer;
begin
s := 10000;
i := 0;
if (s > 500) and (s <= 1000) then i := 3
else
if (s > 1000) and (s <= 5000) then i := 5
else i := 7;
println(s*(1-i/100));
end.
|
|
|
|
| Ads | |
|
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
 |
|
|
Линейный вид
