#include <iostream> #include <cmath> using namespace std; void main(){ double result ; int x,n=0,k = 2; cin >> x >> n; result = cos(pow(x, 1)); for (int i = 2;i<=n;++i) { if (i != k) result += cos(pow(x, i)); else { result -= cos(pow(x, i)); k += 3; } } cout << "result = " << result; system("pause"); }
{Напишите программу, которая находит минимальное и максимальное среди чётных положительных чисел, записанных в файле, и выводит результат в другой файл.} var f:text; min, max,a :integer; find:boolean;{есть/нет числа удовлетворяющие условию} begin assign(f,'dan.txt'); reset(f); min:=0; max:=0; find:=false; while not eof(f) do begin read(f,a); if not find and (a>0) and (a mod 2=0) then begin min:=a; find:=true; end else if find and (a>0) and (a mod 2=0) and (min>a) then min:=a;
if (a>0) and (a mod 2=0) and (max<a) then max:=a; end; close(f); assign(f,'res.txt'); rewrite(f); if max=0 then writeln(f,'чётных положительных чисел нет') else writeln(f,'min среди чётных положительных чисел =',min, chr(13), 'max среди чётных положительных чисел нет',max); close(f); end.
{В двухмерном массиве найдите количество и произведение не кратных 4 трехзначным элементов k-го столбца} var C:array [1..100,1..100] of integer; p: longint; kol, k:byte; {кол-во отрицательных эл-тов} N,M,i,j:byte; begin writeln('введите размерность массива (кол-во строк, столбцов)'); readln(N,M); writeln('введите элементы двумерного массива'); for i:=1 to N do for j:=1 to M do read(C[i,j]); writeln('введите номер столбца'); readln(k); kol:=0; P:=1; for i:=1 to N do if (C[i,k] mod 4<>0) and (C[i,k]>=100) and (C[i,k]<1000) then {не кратно 4, трехзначное} begin P:=P*C[i,k]; kol:=kol+1 end; writeln('kol=', kol:7); writeln('произведение=', P:5) end.
#include <cmath>
using namespace std;
void main(){
double result ;
int x,n=0,k = 2;
cin >> x >> n;
result = cos(pow(x, 1));
for (int i = 2;i<=n;++i)
{
if (i != k)
result += cos(pow(x, i));
else
{
result -= cos(pow(x, i));
k += 3;
}
}
cout << "result = " << result;
system("pause");
}