1. #include <iostream> using namespace std; void main() { //задаём русский язык для консоли setlocale(LC_ALL, "Russian"); long sum = 0; int a; cout << "Введите a" << endl; cin >> a; if (a > 500) { cout << "а > 500" << endl; } else { sum = (500 * 501 / 2) - ((a - 1) * a ) / 2; cout << sum; } } 2. #include <iostream> using namespace std; void main() { //задаём русский язык для консоли setlocale(LC_ALL, "Russian"); double average = (1 + 1000) / 2.; cout << "Среднее арифметические чисел от 1 до 1000" << average << endl; } 3 #include <iostream> using namespace std; void main() { //задаём русский язык для консоли setlocale(LC_ALL, "Russian"); int a = 0, b = 0; cout << "Введите границы диапазона" << endl; cin >> a >> b; cout << "Все числа:" << endl; if (a <= b) { for (int i = a; i <= b; i++) { cout << i << endl; } } else { for (int i = b; i < a; i++) { cout << i << endl; } } cout << "Чётные числа:" << endl; if (a <= b) { for (int i = a; i <= b; i++) { if (i % 2 == 0) { cout << i << endl; } } } else { for (int i = b; i < a; i++) { if (i % 2 == 0) { cout << i << endl; } } } cout << "Нечётные числа:" << endl; if (a <= b) { for (int i = a; i <= b; i++) { if (i % 2 != 0) { cout << i << endl; } } } else { for (int i = b; i < a; i++) { if (i % 2 != 0) { cout << i << endl; } } } cout << "Числа, кратные 7:" << endl; if (a <= b) { for (int i = a; i <= b; i++) { if (i % 7 == 0) { cout << i << endl; } } } else { for (int i = b; i < a; i++) { if (i % 7 == 0) { cout << i << endl; } } } } 4. #include <iostream> using namespace std; void main() { //задаём русский язык для консоли setlocale(LC_ALL, "Russian"); int a = 0, sum = 0; cout << "Введите числа" << endl; while (true) { cin >> a; if (a == 0) { break; } sum += a; } cout << "Сумма =" << sum << endl; }
// PascalABC.NET 3.3, сборка 1541 от 29.09.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('n='); var a:=ReadArrInteger('Введите 25 не повторяющихся чисел:'+NewLine,25); var b:=ReadArrInteger('Введите '+n+' не повторяющихся чисел:'+NewLine,n); Writeln('Объединенная последовательность:'); (a+b).Println end.
#include <iostream>
using namespace std;
void main()
{
//задаём русский язык для консоли
setlocale(LC_ALL, "Russian");
long sum = 0;
int a;
cout << "Введите a" << endl;
cin >> a;
if (a > 500)
{
cout << "а > 500" << endl;
}
else
{
sum = (500 * 501 / 2) - ((a - 1) * a ) / 2;
cout << sum;
}
}
2.
#include <iostream>
using namespace std;
void main()
{
//задаём русский язык для консоли
setlocale(LC_ALL, "Russian");
double average = (1 + 1000) / 2.;
cout << "Среднее арифметические чисел от 1 до 1000" << average << endl;
}
3
#include <iostream>
using namespace std;
void main()
{
//задаём русский язык для консоли
setlocale(LC_ALL, "Russian");
int a = 0, b = 0;
cout << "Введите границы диапазона" << endl;
cin >> a >> b;
cout << "Все числа:" << endl;
if (a <= b)
{
for (int i = a; i <= b; i++)
{
cout << i << endl;
}
}
else
{
for (int i = b; i < a; i++)
{
cout << i << endl;
}
}
cout << "Чётные числа:" << endl;
if (a <= b)
{
for (int i = a; i <= b; i++)
{
if (i % 2 == 0)
{
cout << i << endl;
}
}
}
else
{
for (int i = b; i < a; i++)
{
if (i % 2 == 0)
{
cout << i << endl;
}
}
}
cout << "Нечётные числа:" << endl;
if (a <= b)
{
for (int i = a; i <= b; i++)
{
if (i % 2 != 0)
{
cout << i << endl;
}
}
}
else
{
for (int i = b; i < a; i++)
{
if (i % 2 != 0)
{
cout << i << endl;
}
}
}
cout << "Числа, кратные 7:" << endl;
if (a <= b)
{
for (int i = a; i <= b; i++)
{
if (i % 7 == 0)
{
cout << i << endl;
}
}
}
else
{
for (int i = b; i < a; i++)
{
if (i % 7 == 0)
{
cout << i << endl;
}
}
}
}
4.
#include <iostream>
using namespace std;
void main()
{
//задаём русский язык для консоли
setlocale(LC_ALL, "Russian");
int a = 0, sum = 0;
cout << "Введите числа" << endl;
while (true)
{
cin >> a;
if (a == 0)
{
break;
}
sum += a;
}
cout << "Сумма =" << sum << endl;
}
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var a:=ReadArrInteger('Введите 25 не повторяющихся чисел:'+NewLine,25);
var b:=ReadArrInteger('Введите '+n+' не повторяющихся чисел:'+NewLine,n);
Writeln('Объединенная последовательность:'); (a+b).Println
end.
Пример:
n= 8
Введите 25 не повторяющихся чисел:
-35 41 42 20 -27 1 35 -11 -24 -33 -45 16 50 -8 26 15 6 -38 32 44 -22 -25 -3 -28 48
Введите 8 не повторяющихся чисел:
-14 0 37 5 11 -29 36 -19
Объединенная последовательность:
-35 41 42 20 -27 1 35 -11 -24 -33 -45 16 50 -8 26 15 6 -38 32 44 -22 -25 -3 -28 48 -14 0 37 5 11 -29 36 -19