Нужно составить программу(ну как всегда var////began//// ну и т.д.) дана дробь a/b. требуется ее сократить. то есть записать это же число в виде c/d, где c — целое число, d — натуральное число и d минимальное возможное.

var i,a,b,a1: integer; beginreadln(a,b); a1: =a; for i: =1 to a1 do begin if (a mod i=0) and (b mod i=0) then begin a: =a div i; b: =b div i; end; end; writeln('c=',a,' d=',b); end.

1) тут в смысле надо тебе интеграл если да, то

       

program pr2; uses crt; procedure arifm(a,b: integer; var s: real); begin s: =(a+b)/2; end; procedure proiz(var a,b,c: integer); var i,m1,m2: integer; begin m1: =1; m2: =1; for i: =1 to a do m1: =m1*i; for i: =1 to b do m2: =m2*i; if m1> m2 then c: =m1 else c: =m2; end; var a,b,c: integer; s: real; beginclrscr; readln(a,b); arifm(a,b,s); writeln(s); proiz(a,b,c); writeln(c); end.

 

 

2)

program pr1; uses crt; procedure arifm(var a,b: integer; s: real); begin s: =(a+b)/2; writeln(s: 8: 3); end; var a,b: integer; s: real; beginclrscr; readln(a,b); arifm(a,b,s); end.

 

 

 

паскаль

 

 

 

1)program abc; uses crt;

var s: integer; a: array [1..10,1..10];

begin 

for i: =1 to 10 do

for j: =1 to 10 do

read(a[i,j]);

writeln;  

begin

s: =0;

for i: =1 to 10 do

for j: =1 to 10 do

if i=j then s: =s+a[i,j];

write('сумма равна',s)

end.

 

 

2) 

program abc; uses crt;

var min: integer;   a: array [1..10,1..10];  

begin 

for i: =1 to 10 do

for j: =1 to 10 do

read(a[i,j]);

writeln;  

 

  min: =a[1,1];

for i: =1 to 10 do

for j: =1 to 10 do

if a[i,j]< min then min: =a[i,j];

writeln('минимальный элемент   равен',min);

end.