Var i:integer;
begin
i:=1;
while i<100 do
begin
write(i,' ');
i:=i+2
end
<span>end.</span>
Const n=50;
var a:array [1..n] of integer;
i,k:integer;
begin
for i:=1 to n do begin
a[i]:=random (21)-10;
if a[i]=0 then k:=k+1;
write (a[i]:4);
end;
writeln ('кол-во нулей =',k);
end.
0+10+9+8+7+6+5=45. Удобнее таблицей решать такие задачи.
{
Код программы и скриншот работы в приложениях
Написано на PascalABC.NET
}
program abc;
var
i, j:integer;
pr:boolean;
begin
writeln('Простые числа в диапазоне от 1 до 100: ');
for i := 2 to 100 do
begin
pr := true;
for j := 2 to i div 2 do
if i mod j = 0 then
begin
pr := false;
break;
end;
if pr then
write(i, ' ');
end;
writeln;
end.