USES crt;
var a,b,c,d:real;
BEGIN
clrscr;
readln(a,b,c,d);
if (a > b) and (b > c) then
writeln('Max = ',a,', Min = ',c);
if (b > a) and (a > c) then
writeln('Max = ',b,', Min = ',c);
if (a > c) and (c > b) then
writeln('Max = ',a,' Min = ',b);
if (c > a) and (a > b) then
writeln('Max = ',c,', Min = ',b);
if (b > c) and (c > a) then
writeln('Max = ',b,', Min = ',a);
if (b > d) and (d > b) then
writeln('Max = ',b,', Min = ',b);
if (d > b) and (d > b) then
writeln('Max = ',d,', Min = ',a);
readln;
END.
Задача легкая, но блин, пришлось подумать...
Начало отсчета лет - 1984 год. Надо написать программу (pascalABC). Вводите год, нужный вам, отнимаете от него 1984 и находите остаток от деления на 12. Последовательность животных в 12-летнем цикле - крыса, корова, тигр, заяц, дракон, змея, лошадь, овца, обезьяна, курица, собака, свинья. То есть если при делении на 12 остаток равен 0, значит введенный год - год крысы, если 1 - год коровы и т.д.
<em>var a, b, i, c :integer;</em>
<em>begin</em>
<em> read (a, b); </em><em>// вводим a и b </em>
<em> for i:=1 to 5 do</em>
<em> begin</em>
<em> c:=random(b-a)+a; </em><em>// присваиваем рандомные числа в заданном </em><em>промежутке</em>
<em> writeln (c); </em><em>// выводим число</em>
<em> end;</em>
<span><em>end.</em></span>
С чем же помочь если ни чего нет
кроме помогите