1
2
3
4
5
6
umn_matrix<span>(</span><span>[</span><span>]</span><span>,</span>_<span>,</span><span>[</span><span>]</span><span>)</span><span>.</span>
umn_matrix<span>(</span><span>[</span>Stroka<span>|</span>Tail<span>]</span><span>,</span>Vector<span>,</span><span>[</span>A<span>|</span>ATail<span>]</span><span>)</span><span>:-</span>umn_stroka<span>(</span>Stroka<span>,</span>Vector<span>,</span>A<span>)</span><span>,</span> umn_matrix<span>(</span>Tail<span>,</span>Vector<span>,</span>ATail<span>)</span><span>.</span>
umn_stroka<span>(</span><span>[</span><span>]</span><span>,</span>_<span>,</span><span>0</span><span>)</span><span>.</span>
umn_stroka<span>(</span><span>[</span>E1<span>|</span>Tail<span>]</span><span>,</span><span>[</span>E2<span>|</span>Tail2<span>]</span><span>,</span>Ans<span>)</span><span>:-</span>umn_stroka<span>(</span>Tail<span>,</span>Tail2<span>,</span>TempAns<span>)</span><span>,</span> Ans <span>is</span> TempAns<span>+</span>E1<span>*</span>E2<span>.</span>
Интернет, литература, сми, живое общение, самообразование и просто образование...
Решение во вложении.
<em><u>Ответ:</u></em>
Александр - Иркутск
Николай - Рязань
Денис - Уфа
Михаил - Саратов
Геннадий - Тюмень
Семен - Воркута
Var a,b,c:real;
begin
writeln('vvedite a');
readln(a);
writeln('vvedite b');
readln(b);
writeln('vvedite c');
readln(c);
if a>b then
if b>c then writeln('naimenshee=', c) else writeln('naimenshee=', b)
else if a>c then writeln('naimenshee=', c) else writeln('naimenshee=', a);
end.