Значение s останется = 1, так как цикл не выполнится ни разу
S=7.310096
P=19
Programa:
CLSa = 2: b = 8: c = 9r = (a + b + c) / 2p = a + b + cs = SQR(r * (r - a) * (r - b) * (r - c))PRINT "S="; sPRINT "P="; p
В первой игре слова наоборот
Во второй игре цифра соответствует номеру буквы в аофавите первой буквы в слове
Var ab,h,s:real;
begin
write('a+b = '); readln(ab);
write('h = '); readln(h);
s:=ab/2*h;
writeln('S = ',s);
end.
Пример:
a+b = 10
h = 6
S = 30