Program Trykutnyk;
uses Crt;
const a=5; b=3.6; c=4.2;
var p,s: real;
begin
clrscr;
p:=a+b+c;
writeln('p=', p:5:2);
p:=p/2;
s"=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('s=', s:5:2);
writeln('Имя Фамилия');
readln
end.
Program calc;
var
operation:char;
s,a,b:real;
begin
writeln('Введите первое число'); readln(a);
writeln('выбирайте знак(+ - * /)'); readln(operation);
writeln('Введите второе число'); readln(b);
if (b=0) and (operation = '/') then begin
writeln ('ERROR');
exit
end;
case operation of
'+': s:=a+b;
'-': s:=a-b;
'*': s:=a*b;
'/': s:=a/b;
end;
Writeln('Результат: ',s)
end.
74=1001010
121=1111001
2014=11111011110
Компьютеры обычно не разрешают называть файлы с этими символами: " № # % ^ & | \ / ' ~
Если тебе не сложно отметь пож этот ответ лучшим