<span>Целые числа, т.к. считаешь количество вхождений</span>
Sub car()
Dim s1, s2 As Double
s1 = CDbl(InputBox("Введи первое число", "Ввод данных", 88))
s2 = CDbl(InputBox("Введи второе число", "Ввод данных", 46))
If s1 > s2 Then MsgBox (CStr(s1) + ">" + CStr(s2)) Else MsgBox (CStr(s1) + "<" + CStr(s2))
End Sub
Ответ:
Program example;
var a,x,y: Extended;
Begin
write('Enter a: ');
readln(a);
x:=sqr(a)+cos(a);
y:=8*x+5*(exp(ln(x)*(2-1)));
writeln('y = ', y:0:3);
End.
Объяснение: Если есть вопросы, то пишите мне в лс.