Вывести на экран значения функции у=sin(x) для 0≤x≤180 c шагом в 10. На языке Паскаль

#include < stdio.h> # define in "input.txt"# define out "output.txt"unsigned long long sum(int n){unsigned long long otv=0; for (int i=1; i*i< =n; i++)if %i)){otv+=i; if(i*i! =n)otv+=n/i; }return otv; }int main(void){unsigned long long n,otv=0; freopen(in,"r",stdin); freopen(out,"w",stdout); scanf("%i64d",& n); otv=sum(n); printf("%i64d",otv); return 0; }

program fraza;

var x,y: string;

begin

writeln('введите название животного: ');

readln(x);

writeln('введите число');

readln(y);

writeln(x, " съест ", y, ' грибов.');

end.

#include < iostream> #include < vector> #include< windows.h> using namespace std; char bufrus[256]; char* rus(const char* text) { chartooem(text, bufrus); return bufrus; }int main(){ vector< int> m; //объявили динамический массивint n,count,sum; count=sum=0; cout< < rus("введите количество элементов массива: ");

cin> > n; for(int i=0; i< n; i++){ cout< < "m["< < i+1< < "]"; int temp; cin> > temp; if (temp> 7){count++; sum+=temp; } m.push_back(temp); }cout< < rus("количество элементов: ")< < count< < endl; cout< < rus("сумма элементов: ")< < sum; cin> > n; return 0; }

как видите, всё просто)

1, 2, 5, 9 -однозначные числа

10, 25, 40, 41 - двузначные числа

1, 2, 11, 29 - простые числа