Question

Вариант 1 паскаль
Написать программу, которая вычисляет площадь прямоугольника Интерфейс при выполнении программы: Введите 1 сторону 3 Введите 2 сторону 4 Площадь прямоугольника со сторонами 3 и 4 равна 12 Числа 3 и 4 ввод с клавиатуры, ответ 12 считает программа ​

Answer 1

Ответ:

program RectangleArea;

var area, height, width : real;

begin

 writeln ('Введите 1 сторону');

 readln (height);

 writeln ('Введите 2 сторону');

 readln (width);

 area := height * width;

 writeln('Площадь прямоугольника со сторонами ', height:0:3, ' и ', width:0:3, ' равна ', area:0:3)

end.

Объяснение:

program  - объявление имени программы

var area, height... :real - объявление переменных с типом "число с плавающей точкой"

begin - начало основной части программы

writeln - вывод текста

readln - чтение из консоли в переменную

height:0:3 - это переменная, :0:3 - это формат числа, выводить любое количество знаков до запятой и 3 после

end - конец основной части программы