Var a,b,c,p,s: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);
end.
program raf105;
var a,b,c,d,e:integer;
begin
write('Введите 5 оценок через пробел: ');
readln(a,b,c,d,e);
a:=(a+b+c+d+e) div 5;
writeln('Средний балл: ',a);
end.
129(10) = 81(16) = 201(8) = 10000001(2)
257(10) = 101(16) = 401(8) =100000001(2)
1023(10) = 3FF(16) = 1777(8) =1111111111(2)
#include <iostream>
int main(){
int height, above140 = 0, middle = 0;
const int num = 20;
for (int i = 0; i < num; i ++){
std::cout << "height is ";
std::cin >> height;
middle += height;
if (height > 140) above140 ++;
}
middle /= num;
std::cout << "middle height is " << middle << "\nabove 1m 40sm is " <<
above140 << "\n";
}