// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
SeqGen(ReadInteger('n='),1,1,(x,y)->x+y).Println
end.
<u><em>Тестовое решение:</em></u>
n= 10
1 1 2 3 5 8 13 21 34 55
Громкий, тихий, остальные - вкус, цвета, размеры.
#include <iostream>
#include <cmath>
int main()
{
int a;
int S;
std::cin >> a;
if (a > 5)
{
S = std::sin(std::cos(a*3-2)+std::tan(a/2.0));
std::cout << S << std::endl;
}
else if (a < 2)
{
S = std::atan(a) + std::sqrt(a) + std::pow(a,3);
std::cout << S << std::endl;
}
else
{
std::cout << "No solutions!" <<std::endl;
}
return 0;
}
Программа для среды программирования Кумир:
использовать Робот
алг
нач
лог прав=да
цел x=0, y=0
нц
если (mod(div(y,2),2)=0) = (mod(x,2)=0) то закрасить все
выбор
при прав и справа свободно: вправо; x:=x+1
при не прав и слева свободно: влево; x:=x-1
при сверху свободно: вверх; прав:=не прав; y:=y+1
иначе выход
все
кц
кон
Var
x,y:integer;
begin
writeln('Введите X: ');readln(x);
if x <= 0 then
y:=0
else
begin
if (x < 0) or (x <= 1) then
y:=x
else
y:=x*x
end;
writeln(y);
end