Здесь ошибка в несоответствии типов данных в переменных.
это значит, что Вы присвоили переменным типы, но в них записываете несоответствующие данные.
в часности, тип bool или boolean - это особый тип данных. переменные этого типа могут иметь только два значения: true (правда) и false (неправда), но никак не числа, а в строчках 13, 16 и 19 переменной f были присвоены числовые значения. ошибка там.
p.s. если просить программу вывести переменную типа bool на экран, будет написано true или false.
Использовать Чертежник
алг
нач
опустить перо
сместиться на вектор(-2,0)
сместиться на вектор(2,2)
сместиться на вектор(0,-4)
<span>кон</span>
Program zadanie;
Var a,b:integer;
Begin
Writeln('Введите год рождения');
Read(a);
Writeln('Введите текущий год');
Readln(b);
If b>a Then
begin
a:=(b-a)*365;
Writeln('Примерное число прожитых дней=',a);
end
Else If a>b Then Writeln('Не правильно указаны год рождения и текущий год')
Else
begin
a:=a*365;
Writeln('Примерное число прожитых дней=',a);
end;
End.
1)
var x,s:real;
begin
readln(x);
s:=cos(x) - sin(x) + abs(x-7) + x*x - 1;
writeln (s)
<span>end.
2)
var x,y,s:real;
begin
readln(x,y);
s:=(x+y)/2;
writeln(s)
<span>end.
3)
var x,y:real;
begin
readln(x);
if x<0 then y:=x*x-5;
if x=0 then y:=3;
if x>0 then y:=x-3;
writeln(y)
<span>end.</span></span></span>