Объясните пожалуйста, какая у Вас конкретная тема по информатике и каким образом это творить ?! С помощью переменных строк или иначе...
Var
<span> a, b, c, p,s,s1: real;</span>
begin
<span><span>
write(</span>'Введите три стороны треугольника: '<span>); </span></span><span>
read(a, b, c);</span><span>
p := (a + b + c) / 2;</span><span>
s := sqrt(p * (p - a) * (p - b) * (p - c));</span><span><span>
write(</span>'Введите три стороны другого треугольника: '<span>); </span></span><span>
read(a, b ,c);</span><span>
p := (a + b + c) / 2;</span><span>
s1 := sqrt(p * (p - a) * (p - b) * (p - c));</span><span><span>
write(</span>'Треугольники равновеликие -- ', s = s1)</span><span>
end.</span>
Var st:real;
mn:integer;
d:1..7;
begin
write('Введите стоимость 1 минуты в рублях st=');
readln(st);
write('Введите продолжительность разговора в минутах mn=');
readln(mn);
repeat
write('Введите номер дня недели d=');
readln(d);
until d in [1..7];
case d of
1..5:st:=st*mn;
else st:=st*mn*0.8;
end;
write('Стоимость разговора=',st:0:2);
readln
end.
9=1×9; 18=2×9; 27=3×9; ... 162=18×9
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
Writeln('S=',1.To(18).Select(i->1/(9*i)).Sum)
end.
<u><em>Результат</em></u>
S=0.388345342021813
