<span><em>// PascalABC.NET 3.3, сборка 1576 от 16.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
</span><span>begin
var s:=ReadlnString('Введите имя и фамилию:');
var g:=ReadlnString('Введите год рождения:');
var n:=ReadInteger('Сколько раз повторить вывод?');
loop n do Writeln(s,NewLine,g)
end.
<u>Пример</u>
Введите имя и фамилию: Иванов Сергей
Введите год рождения: 24.06.2001
Сколько раз повторить вывод? 3
Иванов Сергей
24.06.2001
Иванов Сергей
24.06.2001
Иванов Сергей
24.06.2001</span>
Var
A,B:integer;
P:real;
Begin
P:=1;
Write('A = ');Read(A);
Write('B = ');Read(B);
For A:=A to B do
P:=P*A;
WriteLn(P)
End.
Для автоматизации различного рода вычислений.Для бухгалтерских расчетов - расчётные ведомости, балансы, сметы расходов и т. п.Для решения математических задач.Для решения задач с использованием формул (таким образом возможно просмотреть взаимосвязь между элементами какой-либо системы.Для решения задач по программированию путем математического моделирования в электронных таблицах.
Program xxx;
Var a, b, c, p, s : real;
Begin
wtiteln('введите катет а-');
read(a);
wtiteln('введите катет b-');
read(b);
s:=(a*b)/2;
writeln('площадь треугольника =', s);
c:=sqrt(sqr(a)+sqr(b));
p:= a+ b + c;
writeln('периметр треугольника =', p);
end.