С ЦИКЛАМИ: Program test ; Var d, a, :real; n, i:integer; Begin Write ('введите a1: '); Readln(a) ; Write(' введите шаг арифм. прогресии: '); Readln(d); Write('введите номер члена арифм. прогресии:'); Readln(n); For i:=1 to n do a:=a+d; Writeln(n, ' член арифметической прогресии равен : ', a); End. БЕЗ ЦИКЛОВ: Program test ; Var d, a, :real; n, i:integer; Begin Write ('введите a1: '); Readln(a) ; Write(' введите шаг арифм. прогресии: '); Readln(d); Write('введите номер члена арифметической прогресии: '); Readln(n); Writeln(' ответ: ', a+d*(n-1)); End.
#include <cstdlib>#include <ctime>
using namespace std;
int main() {
srand(time(0));
const int n = 5;
int x[n], y[n], x0=0, y0=0;
for (int i = 0; i < n; ++i) {
x[i] = rand() % 5;
y[i] = rand() % 5;}
for (int i = 0; i < n; ++i) {
cout<< x[i]<<' ';}
cout << endl;
for (int i = 0; i < n; ++i) {cout << y[i] << ' ';}
for (int i = 0; i < n; ++i) {
if (x[i]) x0++;
if (y[i]) y0++;}
cout << endl;
if (x0 > y0) cout << 'x';
if (x0 < y0) cout << 'y';
if (x0 == y0) cout << '=';
return 0;}