//PascalABC.NET версия 3.4.0.1677 от 17.06.18
//Если программа не запускается, то обновите версию
uses System.Linq;
function GetPrimes(n: integer): List<integer>;
begin
var primes := new List<integer>();
primes.Add(2);
for var i := 3 to n do
if primes.All(x -> i mod x > 0 ) then
primes.Add(i);
end;
GetPrimes := primes;
var n := ReadInteger('n =');
var primes := GetPrimes(2 * n);
foreach var p in primes do
if primes.Contains(p + 2) then
writeln(p, ' ', p + 2);
end.
const n=9;
var marks:array[1..n,1..2] of 2..5;
i,k:integer;
writeln('Оценки студентов:');
for i:=1 to n do
marks[i,1]:=random(4)+2;
marks[i,2]:=random(4)+2;
writeln(i,': ',marks[i,1]:3,marks[i,2]:3);
k:=0;
if (marks[i,1]+marks[i,2])/2<3 then k:=k+1;
writeln('Количество студентов, имеющих средний < 3 = ',k);
Пример:
Оценки студентов:
1: 5 4
2: 5 4
3: 4 3
4: 5 5
5: 2 2
6: 2 3
7: 5 5
8: 3 4
9: 2 2
Количество студентов, имеющих средний < 3 = 3
//PascalABC.NET версия 3.4.0.1677 от 17.06.18
//Если программа не запускается, то обновите версию
uses System.Linq;
function GetPrimes(n: integer): List<integer>;
begin
var primes := new List<integer>();
primes.Add(2);
for var i := 3 to n do
begin
if primes.All(x -> i mod x > 0 ) then
primes.Add(i);
end;
GetPrimes := primes;
end;
begin
var n := ReadInteger('n =');
var primes := GetPrimes(2 * n);
foreach var p in primes do
if primes.Contains(p + 2) then
writeln(p, ' ', p + 2);
end.
const n=9;
var marks:array[1..n,1..2] of 2..5;
i,k:integer;
begin
writeln('Оценки студентов:');
for i:=1 to n do
begin
marks[i,1]:=random(4)+2;
marks[i,2]:=random(4)+2;
writeln(i,': ',marks[i,1]:3,marks[i,2]:3);
end;
k:=0;
for i:=1 to n do
if (marks[i,1]+marks[i,2])/2<3 then k:=k+1;
writeln('Количество студентов, имеющих средний < 3 = ',k);
end.
Пример:
Оценки студентов:
1: 5 4
2: 5 4
3: 4 3
4: 5 5
5: 2 2
6: 2 3
7: 5 5
8: 3 4
9: 2 2
Количество студентов, имеющих средний < 3 = 3