// PascalABC.NET 3.2
begin
var n:=readInteger;
Writeln('десятки ',n div 10,' единицы ',n mod 10)
end.
Алг Число
нач
цел n, n1, k, f
вывод "Введите целое число", нс
ввод n
n1:= div(n,10)
k:= mod(n,10)
f:= 1
нц пока n1<>0
если mod(n1,10) > k то
f:= 0
все
k:= mod(n1,10)
n1:= div(n1,10)
кц
если f=1 то
вывод "Да."
иначе
вывод "Нет."
кон
Последовательность Фибоначчи образуется так: каждый следующий член равен сумме двух предыдущих(1,1,2,3,5,8,13,,,,)Дано натур. чи
xxx2036
#include <iostream>
using namespace std;
int main()
{
int seqEl[3] = {1, 1, 2};
int n;
cout << "N = ";
cin >> n;
// Вывод первых 3-х членов
cout << seqEl[0] << endl << seqEl[1] << endl << seqEl[2] << endl;
for (int i = 2; i < n; i++)
{
seqEl[0] = seqEl[1];
seqEl[1] = seqEl[2];
seqEl[2] = seqEl[0] + seqEl[1];
cout << seqEl[2] << endl;
}
return 0;
}