Var a1,b1,a2,b2,s1,s2:integer; begin read(a1,b1,a2,b2); s1:=a1*b1; s2:=a2*b2; if s1>s2 then write('Первый больше'); if s1=s2 then write('Площади равны'); if s1<s2 then write('Второй больше'); end.
Пример ввода: 1 2 3 4 Пример вывода: Второй больше
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016 var a:array[1..15] of integer; i,k:integer; begin Randomize; k:=0; for i:=1 to 15 do begin a[i]:=Random(20)+1; Write(a[i],' '); if a[i]>10 then k:=k+1 end; Writeln; Writeln('k=',k) end.
Var a: array[1..4, 1..4] of integer; i, j, x, y, n: integer; s: string; begin for i:=1 to 4 do for j:=1 to 4 do read(a[i, j]); writeln('Введите "столбцы", чтобы поменять столбцы, или "строки", чтобы поменять строки'); readln(s); writeln('Введите номера столбцов/строк'); readln(x, y); if s='столбцы' then for i:=1 to 4 do begin n := a[i, x]; a[i, x] := a[i, y]; a[i, y] := n; end; if s='строки' then for i:=1 to 4 do begin n := a[x, i]; a[x, i] := a[y, i]; a[y, i] := n; end; for i:=1 to 4 do begin for j:=1 to 4 do write(a[i, j], ' '); writeln; end; end.
Var
a1,b1,a2,b2,s1,s2:integer;
begin
read(a1,b1,a2,b2);
s1:=a1*b1;
s2:=a2*b2;
if s1>s2 then write('Первый больше');
if s1=s2 then write('Площади равны');
if s1<s2 then write('Второй больше');
end.
Пример ввода:
1
2
3
4
Пример вывода:
Второй больше