//Сделал Лугачев Кирилл //Специально для //Все данные вводятся с клавиатуры 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.
// Внимание! Если программа не работает, обновите версию!
begin
Range(1,20).Tabulate(t->t*t).Println(NewLine)
end.
Пример
(1,1)
(2,4)
(3,9)
(4,16)
(5,25)
(6,36)
(7,49)
(8,64)
(9,81)
(10,100)
(11,121)
(12,144)
(13,169)
(14,196)
(15,225)
(16,256)
(17,289)
(18,324)
(19,361)
(20,400)