Program god_Japan;
var y, y1: Integer;
color : Integer;
beast : Integer;
begin
Write('Введите год');
ReadLn(year);
year1 := ((year - 1984) mod 60 + 60) mod 60;
beast := year1 mod 12;
color := (year1 div 12) mod 5;
Write(year, ' - год ');
if beast in [2, 3, 4] then
case color of
0: Write('зеленого');
1: Write('красного');
2: Write('желтого');
3: Write('белого');
4: Write('черного');
end
else
case color of
0: Write('зеленой');
1: Write('красной');
2: Write('желтой');
3: Write('белой');
4: Write('черной');
end;
Write(' ');
case beast of
0: Write('Крысы');
1: Write('Коровы');
2: Write('Тигра');
3: Write('Зайца');
4: Write('Дракона');
5: Write('Змеи');
6: Write('Лошади');
7: Write('Овцы');
8: Write('Обезьяны');
9: Write('Курицы');
10: Write('Собаки');
11: Write('Свиньи');
end;
WriteLn();
end.
Нарисуй : под буквой а слог рок будет подарок, нарисуй сорок а = сорока, нарисуй : ''подача = будет слово дача или наоборот напиши слово да и над ним слог ча ... Много ребусов придумать можно и просто и легко ( если нужна помощь с ребусами обращайся ко мне)
1) степень 2
2) степень 2
3) степень 2.
4) степень 2
Ответ 9
Оно кратно 3, однозначное и нечетное
8л 5л 3л
Наполнили 5л. 3 5 0Перелили это в 3л, осталось 2 л. 3 2 3 3 л вернули в 8 л. 6 2 02л перелили в 3л. 6 0 2Наполнили 5л из 8л. 1 5 2 Отлили из 5л в 5л 1 4 3перелили 3л в 8л 4 4Число переливаний 7.