1) var m,n,z,i,b,count: Integer;
begin
writeln('Введите кол-во рядов');
readln(m);
writeln('Введите кол-во мест в каждом ряду');
readln(n);
writeln('Сколько билетов куплено?');
readln(z);
for i:=1 to m do
begin
for b:=1 to n do
begin
Inc(count);
end;
end;
if (z=count) or (z<count) then writeln('Хватит') else
if z>count then
writeln('Не хватит');
end.
2) var a,b,c: Integer;
begin
writeln('Введите числа a и b');
readln(a,b);
c:=a+b;
if c>10 then
begin
a:=a*5;
b:=b*5;
end;
if (c=10) or (c<10) then
begin
a:=a-5;
b:=b-5;
end;
writeln('a - ',a);
writeln('b - ',b);
end.
3) var x: Real;
begin
writeln('Введите x');
readln(x);
if x<4 then writeln(sqrt(x+1));
if x>4 then writeln(2.5*x-2);
if x=4 then writeln(3*(x*x)-1);
end.
Program fantscrin;
const n = 10;
Var a: array [1..n] of integer;
i,j,k:integer; s:real;
Begin
for i:=1 to n do
a[i]:=random(20)-10;
for i:=1 to n do
write(a[i], ' ');
for i:=1 to n do
for j:=1 to n-1 do
if (a[j]<a[j+1]) then
begin
k:=a[j];
a[j]:=a[j+1];
a[j+1]:=k;
end;
writeln('');
for i:=1 to n do
write(a[i], ' ');
s:=0;
for i:=1 to n do
if ((a[i] < 0)and(i mod 2=0)) then s:=s+1;
writeln('');
writeln(s);
End.
Program umn;
var
n, i: Integer;
begin
Write('Введите число: ');
readln(n);
for i := 1 to 10 do
Write(n, '*', i, '=', n * i, #10);
end.