//Сделал Лугачев Кирилл //Специально для //Все данные вводятся с клавиатуры program Sravnenie; var a, b: integer; // Стороны 1-ого прямоугольника d, c: integer;// Стороны 2-ого прямоугольника S1, S2: integer; // Площадь buf: integer;// Если площадь 1-ого будет меньше 2-ого //поменяем местами,что бы избавиться от минуса razn: integer; // Разница 2-ух площадей
begin Write('Введите стороны 1-ого прямоугольника: '); Readln(a, b);
Write('Введите стороны 2-ого прямоугольника: '); Readln(d, c); S1 := a * b; //Площадь 1-ого S2 := d * c; //Площадь 2-ого if S1 < S2 then begin buf := S1; S1 := S2; S2 := buf; end; razn := S1 - S2; Writeln('Площадь 1-ого больше площади 2-ого в - ',razn, ' раз'); end.
Const n=10; m=10; var a: array[1..n,1..m] of integer; b: array[1..n] of integer; i,j,k: integer; begin; k:=0; writeln ('Двумерный массив:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(100)-50; write (a[i,j]:4); if (a[i,j]<0) and (abs(a[i,j] mod 2)=1) then k:=k+1; end; writeln; b[i]:=k; k:=0; end; writeln; writeln ('Сформирован одномерный массив:'); for i:=1 to n do write (b[i]:3); end.
Объяснение:
Слайд - это фрагмент презентации, в пределах которого производится работа над её объектами.