===== PascalABC.NET =====
begin
var k := ReadInteger; // ввод k
if k > 2 then // анализ аномалии
begin
var (x1, x2, i) := (1, 1, 2);
var x: integer;
while i < k do
begin
x := x1 + x2;
x1 := x2;
x2 := x;
i += 1
end;
Print(x)
end
else
Print('Ошибка')
end.
Оживлёная улица.Мальчик идёт со школы с рюкзаком.На светофоре горит зелёный свет.Машины остоновились и мальчик начинает переходить дорогу.
Ну я даже не знаю... Берешь циркуль и рисуешь круг диаметром 40, еще круг диаметром 140, и еще круг 200 диаметром ну и руки с ртом на одной линии!
#include<iostream>
int main()
{
int nn,kk;
printf("Enter peoples and -kk: ");
scanf("%d%d",&nn,&kk);
int n[nn];
int k = kk;
int sum, p, l = 0, i = 0, q = 0;
for(int i = 0; i < nn; i++)
{
n[i] = 1;
printf("%d ",n[i]);
}
printf("\n");
do{
sum = 0;
p = l;
q = 0;
for(int i = 0; i < nn; i++)
{
if(n[i])
{
sum++;
}
}
for(;q!=kk;)
{
if(i==nn) i = 0;
if(n[i])
{
p++;
q++;
}
if(q==kk)
{
n[i] = 0;
l = i;
}
i++;
}
for(int i = 0; i < nn; i++)
{
printf("%d ",n[i]);
}
printf("\n");
}while(sum>2);
for(int i = 0; i < nn; i++)
{
if(n[i])
{
printf("Last: %d#",i+1);
}
}
return 0;
}
как получилось:
777 делим на 16 столбиком, каждый раз смотря на остаток. последнее частное без остатка будет равняться 1 цифре искомого числа, и далее в обратном порядке пишем остатки от предыдущих частных.
777/16=48 (остаток 9)
48/16=3 (остаток 0)
3 - 1 цифра, далее остатки в обратном порядке 0 и 9, итого