Составил таблицу, фамилии и номер дома можно выбирать из списка.
1. var a, b :real;
begin readln(a, b); writeln(sqrt(a*a + b*b)); end.
2. var s1, s2, a1, a2 :real;
begin readln(s1, s2);
if s1 / 3.14159265 < s2 / 4 then writeln('yes') else writeln('no');
end.
3. var x, y :real;
begin readln(x);
if x < -10 then y:=234 - x*x*x else y:=x * x + 54;
writeln(y);
end.
Дам 2 кода на с++ и на паскаль, попробуешь перевести на VBA . не сложно.
с++
int a,b,count(0);;
cin>>a;
while(a>0)
{
b=a%10;
if (b==3) count++;
a/=10;
}
if (count > 0) cout<<"OK";
else cout<<"NO";
pascal как то так
uses crt;
var a,b,count:integer;
begin
readln(a);
count:=0;
while a > 0 do
begin
b:=a mod 10;
if b = 3then inc(count);
a:=a div 10;
end;
if count > 0 then writeln('ok')
else
writeln('NO');
readln;
end.
Все real, кроме Е. Е - integer.
Хотя в некоторых паскалях Sqr/Sqrt имеют перегрузки, поэтому там могут быть integer.
В интернете собраны сведения со всего мира.Эти сведения размещают на сайтах.