Извини, конечно, но нельзя ли перевернуть страницы учебника и списать всё оттуда?
#include <iostream>
using namespace std;
bool isPrime(int);
int main()
{
setlocale(LC_ALL, "Russian");
int sum = 0,
c = 1,
num;
while (true) {
cin >> num;
if (num == 0) break;
if ( isPrime(c) ) sum += num;
c++;
}
cout << "Результат: " << sum;
return 0;
}
bool isPrime(int n) {
if (n < 2) return false;
if (n == 2) return true;
if (n % 2 == 0) return false;
for (int i = 3; (i * i) <= n; i += 2) {
if (n % i == 0) return false;
}
return true;
}
Ответ:
Объяснение:
var
x, a, b:integer;
ras_x_a, ras_x_b, ras_a_b:integer;
ras_min:integer;
begin
x:=5;
a:=1;
b:=8;
ras_x_a:=abs(x-a);
ras_x_b:=abs(x-b);
ras_a_b:=abs(a-b);
if ((ras_x_a <=ras_x_b) and (ras_x_a <=ras_a_b)) then
ras_min:=ras_x_a
else
if ((ras_x_b <=ras_x_a) and (ras_x_b <=ras_a_b)) then
ras_min:=ras_x_b
else
if ((ras_a_b <=ras_x_a) and (ras_a_b <=ras_x_b)) then
ras_min:=ras_a_b;
writeln(ras_min);
end.
//PascalABC.NET 3.1 сборка 1219
procedure PrintMatrix(a: array[,] of integer);
begin
for var i := a.GetLowerBound(0) to a.GetUpperBound(0) do
begin
writeln;
for var j := a.GetLowerBound(1) to a.GetUpperBound(1) do
write(a[i, j], ' ');
end;
writeln;
end;
begin
var a := MatrixRandom(ReadInteger('n ='), ReadInteger('m ='), 0, 255);
PrintMatrix(a);
for var i := a.GetLowerBound(0) to (a.GetUpperBound(0) div 2) do
for var j := a.GetLowerBound(1) to a.GetUpperBound(1) do
swap(a[i, j], a[a.GetLowerBound(0) + a.GetUpperBound(0) - i, j]);
PrintMatrix(a);
end.
112.
Б Е Г А В Д
113.
D:\ПРОГРАММЫ\ИГРЫ\СТРАТЕГИИ\ФАРАОН
114.
D:\УРОКИ\АЛГЕБРА\Квур.txt