Вот program qq; var a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t:integer; begin cls; writeln ('Введите 10 пар чисел'); read (a,b); read (c,d); read (e,f); read (g,h); read (i,j); read (k,l); read (m,n); read (o,p); read (q,r); read (s,t); //Первая пара if a > b then writeln ('Первая пара больше число ' ,a) else writeln ('Первая пара больше число ' ,b); //Вторая пара if c > d then writeln ('Вторая пара больше число ', c) else writeln ('Вторая пара больше число ', d); //Третья пара if e > f then writeln ('Третья пара больше число ', e) else writeln ('Третья пара больше число ', f); //Четвертая пара if g > h then writeln ('Четвертая пара больше число ' , g) else writeln ('Четвертая пара больше число ' , h); //Пятая пара if i > j then writeln ('Пятая пара больше число ' , i) else writeln ('Пятая пара больше число ' ,g); //Шестая пара if k > l then writeln ('Шестая пара больше число ' ,k) else writeln ('Шестая пара больше число ' ,l); //Седьмая пара if m > n then writeln ('Седьмая пара больше число ' , m) else writeln ('Седьмая пара больше число ' ,n); //Восьмая пара if o > p then writeln ('Восьмая пара больше число ' ,o) else writeln ('Восьмая пара больше число ' ,p); //Девятая пара if q > r then writeln ('Девятая пара больше число ' ,q) else writeln ('Девятая пара больше число ' ,r); //десятая пара if s > t then writeln ('Десятая пара больше число ' ,s) else writeln ('Десятая пара больше число ' ,t); end.
var i: integer; begin // С С С Вывод последовательности 1 3 5 7 9var i,x: integer; begin // С и промежуточной переменной x := 1; for i := 1 to 5 do begin write(x,' '); x := x + 2; end; writeln; // С без промежуточной переменной for i := 1 to 5 do write(2*i-1,' '); writeln; // С С Сумма и произведение введенных чиселКод на Pascalvar i: integer; s,p: real; x: real; begin writeln('Введите 10 чисел: '); s := 0; p := 1; for i := 1 to 10 do begin read(x); s := s + x; p := p * x; end; writeln('Сумма введенных чисел = ',s); writeln('Произведение введенных чисел = ',p); end.Код на PascalABC.NETvar s,p: real; begin writeln('Введите 10 чисел: '); s := 0; p := 1; for var i := 1 to 10 do begin var x: integer; read(x); s += x; p *= x; end; writeln('Сумма введенных чисел = ',s); writeln('Произведение введенных чисел = ',p); end.Вычисление n!Код на Pascalvar n,fact: integer; i: integer; begin write('Введите n (n<=13): '); readln(n); fact := 1; for i := 2 to n do fact := fact * i; writeln(n,'! = ',fact); end.Код на PascalABC.NETvar n: integer; begin write('Введите n (n<=13): '); readln(n); var fact := 1; for var i := 2 to n do fact *= i; writeln(n,'! = ',fact); end.Вычисление AnКод на Pascalvar n,i: integer; a,p: real; begin write('Введите a,n: '); readln(a,n); p := 1; for i := 1 to n do p := p * a; writeln(a,' в степени ',n,' = ',p); end.Код на PascalABC.NETvar n: integer; a: real; begin write('Введите a,n: '); readln(a,n); var p := 1.0; for var i := 1 to n do p *= a; writelnFormat('{0} в степени {1} = {2}',a,n,p); end.
program qq;
var a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t:integer;
begin
cls;
writeln ('Введите 10 пар чисел');
read (a,b); read (c,d); read (e,f); read (g,h); read (i,j); read (k,l); read (m,n); read (o,p); read (q,r); read (s,t);
//Первая пара
if a > b then
writeln ('Первая пара больше число ' ,a)
else
writeln ('Первая пара больше число ' ,b);
//Вторая пара
if c > d then
writeln ('Вторая пара больше число ', c)
else writeln ('Вторая пара больше число ', d);
//Третья пара
if e > f then
writeln ('Третья пара больше число ', e)
else
writeln ('Третья пара больше число ', f);
//Четвертая пара
if g > h then
writeln ('Четвертая пара больше число ' , g)
else
writeln ('Четвертая пара больше число ' , h);
//Пятая пара
if i > j then
writeln ('Пятая пара больше число ' , i)
else writeln ('Пятая пара больше число ' ,g);
//Шестая пара
if k > l then
writeln ('Шестая пара больше число ' ,k)
else
writeln ('Шестая пара больше число ' ,l);
//Седьмая пара
if m > n then
writeln ('Седьмая пара больше число ' , m)
else
writeln ('Седьмая пара больше число ' ,n);
//Восьмая пара
if o > p then
writeln ('Восьмая пара больше число ' ,o)
else
writeln ('Восьмая пара больше число ' ,p);
//Девятая пара
if q > r then
writeln ('Девятая пара больше число ' ,q)
else
writeln ('Девятая пара больше число ' ,r);
//десятая пара
if s > t then
writeln ('Десятая пара больше число ' ,s)
else
writeln ('Десятая пара больше число ' ,t);
end.