Картины. Рисунки. Фотографии.
Сижу и рисую картину.
Просматриваю старые фотографии.
Смотрю детске рисунки.
Тебе из будет трудно искать на рабочем столе или в память компьютера, также они будут длинные и название будет показываться не полностью
Я так понимаю, необходимо написать программу по нахождению площади..
var
a, b, c:integer;
p:real;
begin
writeln('Введите значения длин сторон треугольника ');
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
p:=(a+b+c)/2;
write('Площадь треугольника = ',(sqrt(p*(p-a)*(p-b)*(p-c))):0:2);
end.
===== PascalABC.NET =====
№1
begin
var n := ReadInteger;
var a := SeqRandomReal(n, -99, 99).Select(p -> Round(p,1)).ToArray;
a.Println;
var ic := n div 2;
if a[ic] > a[ic+1] then
a[ic] := 1
else if a[ic] = a[ic+1] then
a[ic] := 0
else
a[ic] := (a[n-1] + a[n-2])/2;
a.Println
end.
№2
begin
var (a, x) := ReadReal2('Введите а и х:');
var y: real;
if x < 0 then
y := 2 + x
else if x = 0 then
y := 3 * a - 1
else
y := a + x;
Print(y)
end.