*div - целая часть от деления
mod - остаток от деления
1. Если число 192 разделим на 100, получим число 1,92. Целая часть=1 ⇒ а=1.
2. Для нахождения b сначала делим число 192 на 100 и пишем его остаток (остаток=92). Затем остаток делим на 10 (92 : 10 = 9,2) и пишем целую часть ⇒ b=2.
3. Чисто 192 делим на 10 и пишем остаток ⇒ с=2.
4. В итоге, мы a, b и c оказались равными цифрам нашего числа, а S их складывает ⇒ S ищет сумму цифр числа.
Верный ответ под буквой B
A:\TEST\INF\MY так как пользователь последовательно идёт к корню диска "А"
1)
var
a,b,c:real;
begin
readln(a,b);
c:=180-a-b;
if (a>90) or (b>90) or (c>90) then writeln('тупоугольный')
else
if (a=90) or (b=90) or (c=90) then writeln('прямоугольный')
else writeln('остроугольный');
end.
2)
var
v:real;
begin
readln(v);
if v<7.8 then writeln ('ракета упадет на Землю');
if v=7.8 then writeln ('ракета станет спутником Земли');
if (v>7.8) and (v<=16.4) then writeln ('ракета останется в пределах Солнечной системы');
if (v>16.4) then writeln ('ракета покинет пределы Солнечной системы');
end.
//PascalABC.NET 3.4.2
begin
var str := readstring('Введите строку:').ToWords;
var ch := readchar('Введите букву:');
str.Where(x -> Pos(LowerCase(ch), LowerCase(x)) = 1).Count.Print;
end.