Дана программа:

Program Primer;

Var

A,result : real;

Begin

Writeln('Введите значения переменной A');

Write('A=');

Readln(A);

Result := sqr((3+A)*5);

Writeln ('sqr((3+A)*5)', result:8:0);

Readln;

End.

Запусти Паскаль, введи данную программу, получи результат, если А=1.

Скрипт - это программа для Интернета, написанная на одном из языков программирования (наиболее рас и предназначенная для организации одного из сервисов сайта или выполняющая другие, полезные для сайта функции. Зачастую скрипты взаимодействуют с базами данный (например MySQL) - которые используются для хранения данных и быстрого к ним доступа. Для того, что бы начать использовать скрипт знаний программирования не требуется - хороший скрипт обычно снабжен инсталлятором, который сам создаст нужные конфигурационные файлы и избавит от "ковыряния" исходного кода скрипта. От Вас потребуется только ввести нужные данные - например, доступ к базе данных.

Объяснение:

Создание скрипта

В разделе «Создать скрипт» можно создавать продающие скрипты. По нажатию на кнопку «Добавить узел» происходит добавление узла.

Узел – это совокупность во менеджера и возможных ответов на него. При создании/настройки узла, его можно отметить как начальный целевой и как узел, не ломающий скрипт

Var A,R:integer;
Begin
WriteLn('Выберите тип единицы измерения времени: 1 - секунда, 2 - минута, 3 - час, 4 - сутки, 0 - выход.');
ReadLn(R);
While R<>0 do
   Begin
   Write('Введите значение этой единицы времени: ');
   ReadLn(A);
   Case R of
   1:WriteLn(A,' сек = ',(A/60):0:3,' мин = ',(A/3600):0:3,' ч = ',(A/86400):0:3,' сут');
   2:WriteLn(A,' мин = ',(A/60):0:3,' ч = ',(A/1440):0:3,' сут = ',A*60,' сек');
   3:WriteLn(A,' ч = ',(A/24):0:3,' сут = ',A*3600,' сек = ',A*60,' мин');
   4:WriteLn(A,' сут = ',A*24,' ч = ',A*1440,' мин = ',A*86400,' сек');
   End;
   WriteLn;
   WriteLn('Выберите тип единицы измерения времени: 1 - секунда, 2 - минута, 3 - час, 4 - сутки, 0 - выход.');
   ReadLn(R);
   End;
End.