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

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


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

Дана сторона квадрата a. Найти его периметр P = 4·a.


uses
  PT4;

var
  a, p: real;

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

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