Тема: программирование на языке паскаль. , : даны 2 переменные a и b. найти сумму этих чисел, разность, произведение, частное, остаток отделения первого числа и второго, целую часть.
Var r1, r2, x1, y1, x2, y2, x3, y3, x4, y4 :real; begin read(x1,y1,x2,y2,x3,y3,x4,y4); if x1>x2 then r1:=(x1-x2)*(x1-x2) else r1:=(x2-x1)*(x2-x1); if y1>y2 then r1+=(y1-y2)*(y1-y2) else r1+=(y2-y1)*(y2-y1); if x3>x4 then r2:=(x3-x4)*(x3-x4) else r2:=(x4-x3)*(x4-x3); if y3>y4 then r2+=(y3-y4)*(y3-y4) else r2+=(y4-y3)*(y4-y3); if r1>r2 then writeln('Первый длинней второго') else if r1=r2 then writeln('Они равны') else writeln('Второй длинней первого'); end.
Var mas:array[1..100,1..100] of integer; N,M,D,N2,i,C,j,M2,k:integer; begin N:=0;D:=0;k:=0; write('Введите N = ');Readln(N); write('Введите M = ');Readln(M); For i:= 1 to M do begin M2:=1; For N2:=i downto 1 do begin if M2<=N then begin mas[M2,N2]:=k; k:=k+1; M2:=M2+1; end; end; end; //после побочной диагонали For D:=2 to N do begin M2:=D; For N2:=M downto 1 do begin IF (M2<=N) and (N2<=M) then begin mas[M2,N2]:=k; k:=k+1; M2:=M2+1; end; end; end; For i:=1 to N do begin Writeln(); for j:=1 to M do write(mas[i,j],' '); end; end.
uses crt;
var a,b:integer;
begin
readln(a,b);
writeln(,a,' + ' ,b,' = ',a+b);
writeln(,a,' - ' ,b,' = ',a-b);
writeln(,a,' / ' ,b,' = ',a/b);
writeln(,a,' * ' ,b,' = ',a*b);
writeln(,a,' mod ' ,b,' = ',a mod b);
writeln(,a,' div ' ,b, ' = ',a div b);
end.