Var i:integer;
begin
for i:=10 downto 1 do
writeln(i);
end.
Var
x, cs, tg: real;
begin
Write('Введите число в диапазоне [0..3.14]: ');
Readln(x);
if (x < 0) or (x > 3.14) then Writeln('Число вне диапазона')
else begin
cs := cos(x); tg := tan(x);
if cs > tg then Writeln('cosX > tgX')
else if cs = tg then Writeln('cosX = tgX')
else Writeln('cosX < tgX')
end
end.
Тестовое решение:
Введите число в диапазоне [0..3.14]: 1.58
cosX > tgX
Папирус стоил дорого. Поэтому случалось, что старую запись смывали и
поверх нее писали новый текст. Это -- палимпсест. Писали заостренными
палочками с расщепленными, как теперешние перья, кончиками. У каждого
писца был свой пенал, в нем лежали палочки, в нем же были выдолблены два
углубления для черной и красной краски. Основной текст писали черной
краской, только начало строки, а иногда и начало фразы выделялись красной.
Начало фразы, но не прописная буква -- в египетском письме слова не
отделялись друг от друга. Красной точечкой отделялись отдельные фразы в
поэтических произведениях..
<span>арифметико-логическое и запоминающее устройства</span>