<span>program</span><span>factorial</span><span>;</span>
<span>function</span><span>fact</span><span>(</span><span>n</span><span>:</span><span>integer</span><span>)</span><span>:</span><span>longint</span><span>;</span><span>begin</span><span>if</span><span>(</span><span>n</span><span>=</span><span>0</span><span>)</span><span>then</span><span>fact</span><span>:=</span><span>1</span><span>else</span><span>fact</span><span>:=</span><span>n</span><span>*</span><span>fact</span><span>(</span><span>n</span><span>-</span><span>1</span><span>)</span><span>;</span>
<span>end</span><span>;</span>
<span>var</span><span>n</span><span>:</span><span>integer</span><span>;</span>
<span>begin</span>
<span>for</span><span>n</span><span>:=</span><span>0</span><span>to</span><span>16</span><span>do</span>
<span>writeln</span><span>(</span><span>n</span><span>,</span><span>'! = '</span><span>,</span><span>fact</span><span>(</span><span>n</span><span>))</span><span>;</span><span>end</span><span>.</span>
const b:array[1..5] of integer = (3, 13, 8, 62, 104);
Вроде всё верно.
Uses crt;
var summa, raz,st,storona1,storona2:real;
begin
ClrScr;
writeln("Введите сумму двух чисел");
readln(summa);
writeln("Введите во сколько раз одно больше другого");
readln(raz);
st:=summa/(raz+1);
storona1:=st;
storona2:=st*raz;
write("1 число-", storona1:7:2,"ед.");
<span>все просто, что бы определить какой цифрой закончится число, надо взять последнюю цифру этого числа и возвести ее в квадрат. Затем, если число двузначное, то ответом будет послденяя цифра поученного числа или если число однозначное, то оно и будет ответом.
<span>var a:integer; </span>
<span>begin </span>
<span>read(a); </span>
<span>write(sqr(a) mod 10); </span>
<span>end.</span></span>
Система - это объект,состоящий из взаимосвязанных элементов и существующих как одно целое