var
a,b:string;
c:real;
begin
readln(a); readln(b); readln(c);
writeln('Билет на ',a); writeln('В кинотеатр ',b); writeln('На время ',c,' Забронирован');
end.
512 кбайт : 4096 символов в алфавите 33 буквы значит, 1 символ= 0,125 кбайт, 33 умножаем на 0,125=4.125 кбайт
program raf105;
var a:array[1..3,1..3] of integer;
i,j,sum:integer;
begin
writeln('Вводите 9 чисел по очереди:');
for i:=1 to 3 do
for j:=1 to 3 do
begin
readln(a[i,j]);
if (a[i,j] mod 4)=0
then sum:= sum+a[i,j]
end;
writeln('Сумма чётных элементов кратных четырём: ',sum);
end.
<u><em>Язык программирования PascalABC</em></u>
Если нужна матрица другого размера, то надо исправить значения n=5; m=6 на нужные.
const
n=5;
m=6;
var
a:array[1..n,1..m] of integer;
i,j,min,max:integer;
begin
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(20);
write(a[i,j]:4);
if j=1 then
begin
min:=a[i,1];
max:=a[i,1];
end
else
begin
if a[i,j]<min then min:=a[i,j];
if a[i,j]>max then max:=a[i,j];
end;
end;
writeln('; min=',min,'; max=',max);
end;
end.
Var
n,i,k,m:integer;
x:real;
a:array[1..100]of real;
begin
//read(n);
n:=12;
for i:=1 to n do
read(a[i]) ;
read(k,m);
x:=a[k];
a[k]:=a[m];
a[m]:=x;
for i:=1 to n do
write(a[i]:1:6,' ');
readln;readln;
<span>end.</span>
