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;
ЯП: С++
#include <iostream>
int main() {
const int N = 5;
int arr[N][N] = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25}; // создаем и заполняем двумерный массив 5x5
for (int i = 0; i < N; i++) // выводим на экран 2-мерный массив;
{
for (int j = 0; j < N; j++)
{
std::cout << arr[i][j] << "\t";
}
std::cout << std::endl;
}
std::cout << "Result #1: ";
for (int i = 0; i < N; i++) // вывод в консоль главной диагонали
{
std::cout << arr[i][i] << "\t";
}
std::cout << "\nResult #2: ";
for (int i = 0; i < N; i++) // вывод в консоль побочной диагонали
{
std::cout << arr[i][N - 1 - i] << "\t";
}
return 0;
}
Объяснение:
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.