Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
прпрпрп
0 / 0 / 0
Регистрация: 24.02.2016
Сообщений: 11
#1

Исполнилось Василисе-премудрой 18 лет - Pascal ABC

02.03.2016, 15:14. Просмотров 599. Ответов 1
Метки нет (Все метки)

помогите, пожалуйста, составить программу
1) Исполнилось Василисе-премудрой 18 лет и позвал Кощей ее замуж. От рождения Василиса была жадной и корыстной и решила выйти она замуж за Кощея не по любви, а по расчету. И поставила условие: "Выйду за тебя, если дашь мне 30000 сундуков золота". На тот момент у Кощея было 27600 сундуков. Сколько лет будет Василисе, когда она выйдет замуж, если каждый год прибавляется по 30 сундуков.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.03.2016, 15:14
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Исполнилось Василисе-премудрой 18 лет (Pascal ABC):

Человеку сегодня исполнилось R лет. Сколько ему дней
Человеку сегодня исполнилось R лет. Сколько ему дней? Часов? Минут? Секунд?...

Получить название игрушек, которые подходят как детям 4 лет, так и детям 10 лет
Дан файл ассортимент, содержащий сведения об игрушках: указывается название...

Получить название игрушек, которые подходят как для 4-х лет, так и для 10-ти лет
Помогите решить задачу в Paskal по теме типизированные файлы. Буду очень...

Ввести возраст человека (от 1 до 150 лет) и вывести его вместе с последующим словом "год", "года" или "лет"
Здравствуйте! Помогите решить задачу! Ввести возраст человека (от 1 до 150...

Исполнилось ли человеку 18 лет
Всем привет. Есть дата рождения и просто дата, надо узнать исполнилось ли...

Определить, исполнилось ли человеку 16 лет
Даны дата рождения человека и сегодняшняя дата. Требуется определить,...

1
Peoples
1269 / 774 / 730
Регистрация: 06.02.2016
Сообщений: 2,081
Записей в блоге: 15
Завершенные тесты: 4
02.03.2016, 15:33 #2
Лучший ответ Сообщение было отмечено прпрпрп как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
program pr;
var
agev:real;
god,raz:real;
coutcu:integer;
begin
agev:=18;       // возраст Василисы
coutcu:=27600; // количество сундуков Кащея
raz:=30000-coutcu;  // сколько не хватает сундуков ( 30 000 - 27600 =2400)
god:=raz/30;   // прибавляет в год 30 сундуков, следовательно 2400/30=80 лет 
agev:=agev+god;   // 18 лет + 80= 98
writeln('Василисе будет: ',agev,' лет.');
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.03.2016, 15:33
Привет! Вот еще темы с решениями:

Языку программирования С++ исполнилось 25 лет
Первый официальный гид по новосозданному языку С++ появился ровно 25 лет назад....

Операционной системе Windows XP исполнилось 10 лет
Ровно 10 лет назад корпорация Microsoft начала поставки первых копий...

Определите исполнилось ли пользователю полных 16 лет)
Известна текущая дата. Пользователь вводит день, месяц и год своего рождения....

Операционной системе Windows исполнилось 25 лет
Ровно 25 лет назад, 20 ноября 1985 года, вышла первая версия операционной...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru