#include<iostream>
#include <cstdlib>
#include <math.h>
using namespace std;
int main()
{
system("chcp 1251 > null");
int n = 0;
cout << "Задача 1.\n\tВведіть n: ";
cin >> n;
for(int i = 1; i<=n; i++){
if(i%7==0){
cout << i;
}
}
cout << "\n\n";
int a,b;
cout << "Задача 2.\n\tВведіть перше число діапазону: ";
cin >> a;
cout <<"\n\tВведіть друге число діапазону: ";
cin >> b;
double sum = 0;
double sr = 0;
int index = 0;
for(int i = a; i<=b; i++){
sum = sum+i;
index++;
}
sr = sum / index;
cout << "\n\nСума: " << sum << "\nСереднє арифметичне: " << sr;
int x = 0;
int y = 0;
cout << "\n\nЗадача 3.\n\tВведіть x: ";
cin >> x;
cout << "\n\tВведіть y: ";
cin >> y;
cout << "Результат" << powl(x,y);
}
Старался написать как можно проще. Попрошу оценить мои старания ;-)
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var c:=ArrRandom(ReadInteger('n='),-50,50); c.Println;
var imax:=c.IndexMax;
c:=c?[:imax]+c?[imax+1:]; c.Println
end.
<u>Пример</u>
n= 15
-5 -23 44 41 23 29 -36 -13 -45 -36 -37 33 -34 -18 33
-5 -23 41 23 29 -36 -13 -45 -36 -37 33 -34 -18 33
<span>Бокситы, алмазы, известняк, глина, стекольные пески</span>
1)
начало
делим на 2
есть остаток нет остатка
возводим в куб возводим в квадрат
конец
