A[0]=1, A[1]=A[0]+1=1+1=2
Все остальные элементы массива получаются суммированием двух предыдущих элементов: 3, 5, 8, 13
Ответ: 1 2 3 5 8 13
Var r, i: integer;
begin
write('r = ');
readln(r);
for i := r downto 1 do
if Tan(i) < 0 then
break;
write(i);
<span>end.</span>
Cls
input a
b=a>=10 and a<=99
print b
Var i:integer;
begin
writeln('введите число от 1 до 7');
readln(i);
case i of
1:writeln('Понедельник');
2:writeln('Вторник');
3:writeln('Среда');
4:writeln('Четверг');
5:writeln('Пятница');
6:writeln('Суббота');
7:writeln('Воскресенье');
end;
readln;
end.