const
N=5;
var
a:array [1..N] of integer;
i,k,count:integer;
begin
for i:=1 to N do
begin
a[i]:=random(20);
write(a[i]);
end;
for i:=1 to N do
begin
count:=0;
k:=2;
if a[i] < 2 then count:=1;
while (k*k<=a[i]) and (count = 0) do
begin
if a[i] mod k = 0 then inc(count);
inc(k);
end;
if count = 0 then write(i);
end;
end.
Var
number: integer;
k: integer;
begin
repeat
write('number = ');
readln(number);
if number < 0 then k := k + 1;
until number = 0;
writeln('Кол-во отрицательных = ', k);
end.
Var a,b,i:integer;
begin
readln(a,b);
for i:=a to b do writeln(i,' ',chr(i));
end.
Пример:
35 40
<span>35 #
36 $
37 %
38 &
39 '
40 (</span>
Scratch,Free Pascal , Lazarus, Python.
Самый большой круг птица. в нём воробей и перелётная птица.в перелётной птице аист и ласточка