//Сделал Лугачев Кирилл //Специально для //Все данные вводятся с клавиатуры 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.
//Видимо, это одна задача, так как "изменения" во второй не указаны //Pascal ABC.NET v3.1 сборка 1172
Const n=20;
Var ar:array[1..n] of integer; i:integer; begin randomize; writeln('First array:'); for i:=1 to n do begin ar[i]:=random(10)-3; write(ar[i]:4); if ar[i]>0 then ar[i]:=ar[i]*2 else ar[i]:=0; end; writeln; writeln('Final array:'); for i:=1 to n do write(ar[i]:4); end.
Объяснение:
158₁₀=1·10²+5·10¹+2·10⁰
759₁₀=7·10²+5·10¹+9·10⁰
360₁₀=3·10²+6·10¹+0·10⁰
-86,98₁₀=8·(-10)¹+6·(-10)⁰+9·(-10)⁻¹+8·(-10)⁻²
0,410987₁₀=4·10⁻¹+1·10⁻²+0·10⁻³+9·10⁻⁴+8·10⁻⁵+7·10⁻⁶
879,5664₁₀=8·10²+7·10¹+9·10⁰+5·10⁻¹+6·10⁻²+6·10⁻³+4·10⁻⁴