ПОМОГИТЕ!!1!!! ВСТАВЬТЕ ВМЕСТО А, В СВОИ ЧИСЛА 1) Составить программу для нахождения площади и периметра прямоугольника В ПАСКАЛЕ.
2) Составить программу большего из двух величин вводимых с клавиатуры.
ПОЖАЛУЙСТА!!
2) Составить программу большего из двух величин вводимых с клавиатуры.
ПОЖАЛУЙСТА!!
More Questions From This User See All
Answers & Comments
Ответ:
{$CODEPAGE UTF8}
program RectangleArea;
var sideA, sideB, area: integer;
begin
write('Длина: ');
readln(sideA);
write('Ширина: ');
readln(sideB);
area := sideA * sideB;
writeln('Площадь прямоугольника: ', area);
readln;
end.
2)
{$CODEPAGE UTF8}
program RectanglePerimeter;
var sideA, sideB, perimeter: integer;
begin
write('Длина: ');
readln(sideA);
write('Ширина: ');
readln(sideB);
perimeter := (sideA + sideB) * 2;
writeln('Периметр прямоугольника: ', perimeter);
readln;
end.
Объяснение:
вроде так