Var mas: array [1..6] of integer;
var i, b, sum: integer;
begin
for i:=1 to 6 do mas[i]:=random(101);
b:=0;
while i<=6 do if mas[i] mod 2<>0 then
begin
b:=i;
i:=7;
end
else inc (i);
sum:=0;
for i:=1 to 6 do if (mas[i] mod 2=0) and (mas[i]<mas[1]) then sum:=sum+mas[i];
writeln (b);
writeln (sum);
<span>end.</span>
Так это отрывок из его произведения "Левиафан", переведенное из кодировки Кириллица Windows в KOI8-R.
ИЗИ
// PascalABC.NET
var gl:='кпстфхцчшщ';
zv:='бвгджзлмнр';
zi: array [1..2,1..10] of integer; //для отметок о выполнении условий для звонких
s: string;
i,n:integer;
chet:boolean; //признак четности слова
begin
chet:=false;
writeln('введите строку из русских слов, разделенные пробелом');
readln(s);
for i:=1 to length(s) do
begin
n:=Pos(s[i],zv);
if (chet=false) then
begin
delete(gl,Pos(s[i],gl),1);
if n>0 then zi[1,n]:=1 //первый признак выполнен
end
else if n>0 then zi[2,n]:=-1; //второй признак не выполнен
if s[i]=' ' then chet:=not(chet);
end;
writeln('глухие согласные, которых нет в нечетных словах: ',gl);
write('звонкие согласные, которых нет в четных словах и которые входят хотя бы в одно нечетное: ');
for i:=1 to 10 do
if zi[1,i]+zi[2,i]=1 then write(zv[i]);
end.
Program massiv;
Const N=10;
Var Rmin: integer;
j,i:integer;
C:array[1..N] of real;
T:array[1..2*N]of real;
Begin
For i:=1 to N do Begin
C[i]:=sqrt(i)* sin(2*i)/cos(2*i);
Write(C[i]:5:2, ' ');
End;
writeln('');
Program zadacha;vara,b:real;beginwriteln('vvedite dva chisla');read(a,b);if a>b then writeln(a,'>',b);if a<b then writeln(a,'<',b);if a=b then writeln(a,'=',b);end.
