Площадь треугольника вычисляется по формуле Герона:
var a,b,c,s,p:real;
begin
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('s=',s:6:2);
end.
Для длин сторон а=5, b=5, с=6.
a=5
b=5
c=6
s= 12.00
Для длин сторон а=17, b=65, с=80.
a=17
b=65
c=80
s=288.00
A, b, c = map(int, input().split()) #ввод в строчку
if min(a, b, c) > 10 and a%3 == 0 and b%3 == 0:
print("yes")
else:
print("no")
Ответ:
program Change;
var
n, i, j, t: Integer;
A: array of Integer;
begin
Write ('Введите четное число N: ');
ReadLn (n);
if n mod 2 = 0 then begin
SetLength (A, n);
Randomize;
for i := Low (A) to High (A) do begin
A [i] := Random (100);
Write (A [i] :3, ' ');
end;
i := 0;
while i < n do begin
t := A [i];
A [i] := A [i + 1];
A [i + 1] := t;
i := i + 2;
end;
WriteLn;
for i := Low (A) to High (A) do begin
Write (A [i] :3, ' ');
end;
end else
WriteLn ('Введено не четное число.');
ReadLn;
end.
Их различия это цвета, форма и размеры
Помогите :
Красная Шапочка часто навещает свою бабушку . Но она очень Боится, что рано или поздно ее бабушку опять навестит волк. Поэтому она решила договориться с Лесничим об охране бабушке. Лесничий согласился охранять бабушку за 10 пирожков. Узнав об этом , волк сказал Красной Шапочке , что ей совершенно незачем тратить пирожки на Лесничего. За половину тех пирожков , которые Красная Шапочка несет,и не больше,чем запросил лесничий , Волк пообещал не трогать ее.Сегодня (29 ноября) в России отмечается день матери . Мама испекла несколько пирожков , и попросила Красную Шапочку отнести их бабушку.Требуется определить, сколько Красная Шапочка сможет донести до бабушки.
Формат входных данных :
Во Входном файле содержится N (1<N<100) - натуральное четное число - количество пирожков,которые испекла мама.
Формат выходных данных:
В единственную строку выходного файла нужно вывести одно число-количество пирожков , которые красная шапочка сможет донести до бабушки.
ВСЕ ЭТО В ПРОГРАММЕ PascalABC.NET