Блог учителя Информатики

Решение задачи Begin2


Условие задачи:

Дана сторона квадрата a. Найти его площадь S = a2.


uses
  PT4;

var
  a, s: real;

begin
  Task('Begin2');
  read(a);
  s := sqr(a);
  write(s);
end.
Поделиться:
Вам также может понравится
Делаем Черепашку в виде снежинки
Перевод десятичных чисел в двоичные на Pascal
Решение задачи ExamBegin80
Решение задачи ExamBegin79

Оставьте комментарий