В одном дворе живут: Катя, Аня, Даша, Маша, Настя, Оля, Варя. Каждая пьёт свой напиток - одна сок, другая воду, третья чай, четвёртая лимонад, пятая морс, шестая молоко, седьмая коктейль. Живут они в разных домах с номерами:42,43,44,45,46,47,48. Каждая из них содержит своё животное: кошку, или собаку, или попугайчика, или кролика, или лошадь, или петуха, или рыбок.
Каждая играет на своём музыкальном инструменте: скрипка, фортепиано, флейта, саксофон, аккордеон, балалайка, синтезатор.
У каждой своё увлечение - играть в шахматы, слушать музыку, читать, танцевать, рисовать, ездить верхом.
Кто из них решает задачи? Если известно:
1) Тот, кто играет на скрипке, живёт в доме №42.
2) Даша пьёт лимонад.
3) Третий дом № 44.
4) Тот, кто живёт в доме №46, пьёт молоко.
5) Рядом с тем, кто пьёт лимонад, живёт тот, кто пьёт морс.
6) Воду пьёт Варя.
7) Аня не пьёт сок, коктейль и воду.
8) Дом №44 находится справа от дома №43 и слева от того, кто играет на саксофоне.
9) Варя в самом последнем доме.
10) Даша держит попугайчиков.
11) Тот, кто живёт в первом, доме играет в шахматы.
12) Между тем, кто держит попугайчиков, и тем, кто держит лошадь, живёт тот, кто держит кроликов.
13) Настя живёт рядом с тем, кто играет на саксофоне.
14) Оля живёт рядом с тем, кто пьёт воду.
15) Настя живёт рядом с тем, кто играет на балалайке.
16) Варя живёт в доме №48.
17) Номера домов идут по порядку 42-48.
18) Катя живёт рядом с Аней.
19) Слева от того, кто держит, попугайчиков живёт тот, кто держит собаку и не пьёт сок и морс.
20) Оля держит петуха.
21) Тот, кто живёт в доме №46, держит лошадь.
22) Тот, кто держит рыбок, любит рисовать.
23) Тот, кто пьёт сок, держит кошку.
24) Тот, кто держит рыбок, живёт рядом с тем, кто пьёт коктейль.
25) Морс пьёт Маша.
26) Тот, кто играет на фортепиано, любит слушать музыку.
27) Рядом с тем, кто живёт в доме №43, живёт тот, кто играет на флейте.
28) Тот, кто играет в шахматы, пьёт сок.
29) Коктейль пьёт тот, кто держит петуха.
30) Тот, кто пьёт чай, играет на фортепиано.
31) Варя играет на синтезаторе.
32) Даша не умеет танцевать.
33) Маша не умеет ездить на лошади, но зато отлично танцует.
34) Настя не любит читать.
35) Даша не ездит верхом и не решает задачи.
36) Оля не ездит верхом.
FOR i = 1 TO 100
percents = FIX(x * p / 100) ' здесь у нас есть переменная percents, которой присваиваются округленные функцией fix проценты (насколько я знаю, в паскале аналогичная функция называется Round)
x = x + percents 'тут всё понятно - переменной X присваивается она сама и годовые проценты по вкладу
IF x >= y THEN 'проверяем, не равен или не превысил ли наш вклад ожидаемую сумму
PRINT i 'в цикле For можно не заморачиваться с отслеживанием лет, переменная i сама подсчитает количество итераций-лет
END 'завершаем программу
END IF
NEXT i ' конец цикла
Можно ещё чисто для себя добавить в условие вывод переменной X, чтобы было нагляднее.
DIM n AS INTEGER
INPUT "Введите кол-во студентов:", n
DIM studentYearsOld(1 TO n) AS INTEGER
DIM studentName(1 TO n) AS STRING
FOR i = 1 TO n
INPUT "Введите имя студента:", studentName(i)
INPUT "Введите год рождения студента:", studentYearsOld(i)
NEXT i
PRINT
FOR i = 1 TO n
PRINT "Студент "; studentName(i)
studentYrs = 2016 - studentYearsOld(i)
IF studentYrs < 18 THEN
PRINT "Лет до права голоса:"; 18 - studentYrs
ELSEIF studentYrs >= 18 THEN
PRINT "Студент уже имеет право голоса!"
PRINT
END IF
studentYrs = 0
NEXT i
Код валидный, если допустил ошибку во время переписывания - сообщите.