Sub CommandButton1_Click()
' Dim x, a, b, c, y As Double
x = 5.2319
a = -2.9565
b = 0.8204
c = 0.05
y = -Exp(b) + (a ^ 2 - Sin(3 * (x) ^ 3) ^ 2) / (Sqr(b ^ 2 - c) + x ^ (1 / 3))
MsgBox y
End Sub
Вот так у меня выдает правильный ответ
1.
var k, l, m, n: integer;
begin
readln(k,l,m,n);
if (k+l+m+n mod 2 = 0) then
writeln('поля одного цвета')
else
writeln('поля разных цветов')
end.
2.
uses crt; {В зависимости от компилятора эта строчка может оказаться лишней}
var question, answer: integer;
begin
randomize();
question := random(100);
writeln(question);
readln(answer);
if (question+answer=100) then
writeln('Not bad')
else
writeln('Oops. Right answer is ', 100-question)
end.
Program vasil ;
var n , m : integer ;
begin
write ( 'vvedi chislo bochek N=' ) ;
readln ( n ) ;
m := n mod 10 ;
if ( m = 1 and n <> 11 ) then writeln ( n , ' bochka' )
else if (m <= 4 and n <> 12 and n <> 13 and n <> 14 and m <> 0) then writeln ( n , ' bochki' )
else writeln ( n , ' bochek' ) ;
end.
Так, наверное. Если будет косяк, то пиши, или сам сообрази где ошибка. Сейчас нет под рукой компилятора, не могу оттестировать.
P-периметр, A-длина одной стороны, B-длина одной из двух других
P=2B+A
B=(P-A)/2
var p,a:real;
begin
read (p,a);
write ((p-a)/2);
end.
Допустим число 11 первое число 1×10=10
11=101