//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.
var m,b:integer;
s,c:real;
begin
writeln ('Введите количество повторений:');
read (m);
s:=0;
c:=sqrt(2);
for b:=1 to m do begin
s:=s+c;
c:=sqrt(c);
end;
writeln ('S=',s);
end.
Сделай так, как на картинке - у меня так работает. У тебя нет выхода из цикла - n вводится один раз и больше не изменяется, как оно может стать равным 0?
История : Великая отечественная война длилась с 1941 по 1945, а вторая мировая - с 1939 по 1945.
География : Луна спутник Земли, на Марсе нету жизни.
Из биологии: У человека одно сердце, без него он не может жить
Из математики: 2*2 = 4, на нуль делить нельзя
Из литературы: Пушкин погиб на дуэли, Лермонтов написал Бородино
Из информатики: За компьютером кушать нельзя, трогать провода нельзя
program xxx;
<span>const n=30;
</span>
<span>var
a : array [1..n] of integer;
i, kn, kd : integer;
begin
</span>
<span> readln(n);
</span>
<span> kn:=0;</span>
<span> kd:=0;
for i:=1 to n do
begin
</span>
<span> write('a[',i,']=');
</span>
<span> readln (a[i]);</span>
<span> if a[i]=0 then kn:=kn+1;</span>
<span> if a[i]=2 then kd:=kd+1;
end;</span>
<span><span> for i:=1 to n do
</span> write(a[i], ' ');
</span>
<span> writeln();
writeln('Количество чисел равных 0 -',kn);</span>
<span><span> writeln('Количество чисел равных 2 -',kd);</span>
readln();
end.</span>