Question

Практична робота № 1 Варіант - 3 . Тема: " Складання та реалізація на ЕОМ лінійних програм " . Мета: Поглибити навички роботи в трансляторi Pascal. Навчитись складати найпростіші лінійні програми. Увага! під час роботи 3 комп’ютером дотримуйтеся правил безпеки і санітарно- гігієнічних норм. Хід заняття: 1. Скласти програму знаходження площі квадрата S із стороною а (7б) 2. Обчислити для а = 5 см. (1б) 3. Передбачити в програмі візуалізацію введення змінної а (2б) 4. Результат представити у вигляді: площа квадрата S = 25 кв.см.(2б) Дотримуйтесь технічних вимог умови завдання!
Даю 70 балів​

Answer 1

program square_area;

var

 a, S: real;

begin

 write('Введите длину стороны квадрата (в см): ');

 readln(a);

 

 writeln;

 writeln('Вы ввели длину стороны квадрата: ', a:0:2, ' см');

 writeln;

 

 S := a * a;

 

 writeln('Площадь квадрата S = ', S:0:2, ' кв.см.');

end.