Человек работает с компьютером с помощью мыши (для компьютера), с интернетом и с помощью клавиатуры.
Var s,p,a,b,c:real;
begin
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Площадь треугольника: ',s);
<span>end.</span>
если мы внимательно прочитаем задачу, то сможем сделать следующие выводы:
<em>Линда не в Риме+Линда равнодушна к балету+а кто живет в Риме певица</em> = <u>Линда снимается в кино</u> + <em>парижанка не снимается в кино</em> = <u>Линда живет в Чикаго</u>.
<em>Джуди живет не в Париже</em>+Линда живет в Чикаго = <u>Джудит живет в Риме</u>
следовательно Айрис живет в Париже
<em>а кто живет в Риме певица</em>+<u>Джудит живет в Риме</u> = <u>Джудит -певица.</u>
<u>Линда снимается в кино</u>+<u>Джудит -певица.</u> = Айрис -балерина
Ответ: Айрис живет в Париже и занимается балетом.
some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text
type
mas = array [1..10] of integer;
var
m : mas;
a,l : integer;
function re () : integer; //Считываем число
var a : integer;
begin
writeln ('Введите число');
readln (a);
Result :=a;
end;
function C(var m : mas; a : integer) : integer; //Разбиваем на числа
var i : integer;
begin
i := 0;
While a > 0 do
begin
i := i +1;
m[i] := a mod 10;
a := a div 10;
end;
Result := i;
end;
procedure wr (a : mas; l : integer); // Вывод массива
var i : integer;
begin
writeln ('Resultat :');
for i := 1 to l do
write (a[i],' ');
end;
procedure sort (var a : mas; l : integer); // перевернуть массив
// т.е 1234 -> 4321
var i,buf : integer;
begin
for i := 1 to l div 2 do
begin
buf := a[l-i+1];
a[l-i+1] := a[i];
a[i] := buf;
end;
end;
begin
a := re();
l := C(m,a);
sort (m,l);
wr (m,l);<span>
end.
на примере числа
125
после выполнения функции C
m[1] = 5 m[2] =2 m[3] =1
после выполнения процедуры Sort
m[1] =1 m[2] =2 m[3] =5
Вывод на экран элементов массива через пробел
1 2 5
</span>