С
программа «календарь». составить программу оп¬ределения названия года в соответствии со старояпонским календарем. в старояпонском календаре был принят 60-летний цикл, состоящий из пяти 12-летних подциклов. в программе необходимо реализовать алгоритм определения названия года при условии, что 1984 г. – год зеленой крысы принят в качестве начала очередного цикла.
цикл цветов: 1 – зеленый, 2 – красный, 3 – желтый, 4 – белый, 5 – черный.
цикл животных: 1 – крыса, 2 – корова, 3 – тигр, 4 – заяц, 5 – дракон, 6 – змея,
7 – лошадь, 8 – овца, 9 – обезьяна, 10 – курица, 11 – собака, 12 – свинья.
2) b:=x mod 100 div 10 (в переменную b присваивается переменная x деленная на 100 b и берется остаток, а потом число которое получилось делиться на 10 и берется только целая часть,b = 125/100=1,25 берем только 25, 25/10=2,5 берем целую часть то есть 2, b=2 )
3) c:=x mod 10 (в переменную с присваивается переменная x деленная на 10, по другому с= x/10 без остатка, с=125/10= 12,5 b ,и берем только 5, с = 5)
4) s:=a *b*с=1*2*5=10
Задание 1
program HelloMoney;
var
y, i: integer; // Объявим переменные для количества лет вклада и для счетчика цикла
p, s: real; //Объявим переменные для количества процентов и величины вклада
begin
write('Какая сумма вклада? ');
readln(s); // Указываем сколько составляет вклад
write('На сколько лет вклад? ');
readln(y); // Указываем на сколько лет вклад
write('Какая процентная ставка?');
readln(p); // Указываем процентную ставку
for i:=1 to y do
s := s + s*p/100; // Прибавляем к вкладу ежегодный процент
write('Сумма денег составит: ', s);
end.
Объяснение: