Які компоненти містяться на вкладці Additional палітри компонентів?

118

229

Посмотреть ответы 1

Ответы на вопрос:

НюшаS12

Информатика

4,6(87 оценок)

//сделал лугачев кирилл //специально для //все данные вводятся с клавиатуры 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.