13. в финале турнира Российской Армии по шахматам встрети- лись представители шести воинских званий: майор, капитан,
лейтенант, старшина, сержант и ефрейтор, причем разных
специальностей: лётчик, танкист, артиллерист, миномётчик,
сапёр и связист. Определите специальность и звание каждого
из шахматистов по следующим данным:
1) в первом туре лейтенант выиграл у лётчика, майор
у танкиста, а сержант — у миномётчика;
2) во втором туре капитан выиграл у танкиста;
3) в третьем и четвёртом турах миномётчик из-за болезни не
участвовал в турнире, поэтому свободными от игры оказа-
лись капитан и ефрейтор;
4) в четвёртом туре майор выиграл у связиста;
5) победителями турнира оказались лейтенант и майор, а хуже
всех выступил сапёр.а

№1

var sum, i: integer;
begin
sum := 0;
for i := 1 to 100 do
sum := sum + i;
writeln('Сумма всех чисел от 1 до 100: ', sum);
end.

№2

var p, i: integer;
begin
p := 1;
for i := 1 to 10 do p := p * i;
writeln('Произведение всех чисел от 1 до 10: ', p);
end.

№3

У вас не дано никаких условий. Вот задача для условия: "Членов прогрессии - 100, шаг - 3"

var A, i, k, max: integer;
begin
i := 3;
max := 100;
for k := 1 to max do begin
A := A + i;write( A, ' ');
end;
end.

№4

var sum, x: real;
a: array[1..10] of real;
i: integer;
begin
sum := 0;
for i := 1 to 10 do begin
write('Введите ', i, ' число: ');
readln(a[i]);
sum := sum + a[i];
end;

writeln('Сумма введенных чисел: ', sum);
end.

Відповідь :

#include <iostream>

#include <windows.h>

#include <cmath>

using namespace std;

int main () {

SetConsoleCP(1251) ; SetConsoleOutputCP(1251) ;  

double x,a,b,e,y , z , q ;

cout << "Первое число  x" << endl ;

cin >> x;  

cout << "2 число  a" << endl ;

cin >> a;

cout << "3 число  b" << endl ;

cin >> b;

cout << "4 число  e" << endl ;

cin >> e;

cout << "5 число  z" << endl ;

cin >> z;

cout << "6 число  y:" << endl ;

cin >> y;

q = x + a*b / atan(z+y)*y-x  ;

cout << q << endl ;

return 0 ;  

}

Пояснення: Вроде так , по дополнительным вопросам обращайтесь .