Const n=10;
var a:array[1..n] of integer;
i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(161)+40;
write(a[i]:4);
end;
writeln;
end.
Пример:
<span> 83 121 107 43 171 199 116 87 87 144</span>
program n_1;
var n, m, i: int64;
begin
readln(n);
m:=1;
i:=0;
while n>0 do begin
if (n mod 10) mod 3 = 0 then begin write(m,' '); i:=1; end;
n:=n div 10;
m:=m+1;
end;
if i=0 then write('Таких разрядов нет');
end.
16*32*60=30720 символов
30720*8=30720 байт=30кбайт
#1
x>2 или x≤1
ложно, если x=2
#2
((x>2) или (x>5))->(x<3)
(x>2)->(x<3)
если x>2 ложно, то всё выражение истинно
x=2
#3
2<x≤3
x=3
#4
x<3 и x≠2
x=1