Спо информатике языком vba.дано одно вещественное число (double определить первую цифру в дробной части заданного положительного вещественного числа. (3.67 = 6)

Sub Zadanie()
    d = CDbl(InputBox("d ="))
    MsgBox round(d * 10) mod 10
End Sub

Call Zadanie()

Логика игры

Есть игро­вое поле — про­стой пря­мо­уголь­ник с твёр­ды­ми гра­ни­ца­ми. Когда шарик каса­ет­ся стен­ки или потол­ка, он отска­ки­ва­ет в дру­гую сто­ро­ну. Если он упа­дёт на пол — вы про­иг­ра­ли. Что­бы это­го не слу­чи­лось, вни­зу вдоль пола лета­ет плат­фор­ма, а вы ей управ­ля­е­те с щью стре­лок. Ваша зада­ча — под­став­лять плат­фор­му под шарик как мож­но доль­ше. За каж­дое удач­ное спа­се­ние шари­ка вы полу­ча­е­те одно очко.

Алгоритм

Что­бы реа­ли­зо­вать такую логи­ку игры, нуж­но преду­смот­реть такие сце­на­рии пове­де­ния:

игра начи­на­ет­ся;

шарик начи­на­ет дви­гать­ся;

если нажа­ты стрел­ки вле­во или впра­во — дви­га­ем плат­фор­му;

если шарик кос­нул­ся сте­нок, потол­ка или плат­фор­мы — дела­ем отскок;

если шарик кос­нул­ся плат­фор­мы — уве­ли­чи­ва­ем счёт на еди­ни­цу;

если шарик упал на пол — выво­дим сооб­ще­ние и закан­чи­ва­ем игру.

Хит­рость в том, что всё это про­ис­хо­дит парал­лель­но и неза­ви­си­мо друг от дру­га. То есть пока шарик лета­ет, мы вполне можем дви­гать плат­фор­му, а можем и оста­вить её на месте. И когда шарик отска­ки­ва­ет от стен, это тоже не меша­ет дру­гим объ­ек­там дви­гать­ся и вза­и­мо­дей­ство­вать меж­ду собой.

Задача 1, Pascal.ABC.Net

const
  sAlpha='';
  sDigit='0123456789';
var
  c,c1:char;
begin
  Write('Введите символ: '); Readln(c);
  c1:=LowerCase(c);
  if Pos(c1,sAlpha)>0 then Writeln('Введена буква ',c)
  else
    if Pos(c1,sDigit)>0 then Writeln('Введена цифра ',c)
    else Writeln('Введен спецсимвол ',c)
end.

Программирование задачи №2 - большая работа, требующая многих часов, если не имеется готовых наработок для программирования шахматной игры. Давать подобные задачи для решения на данном Сервисе - бесполезное занятие, такое не задают даже на олимпиадах.