Var
A,B,C:char;
Begin
WriteLn('Введи первый символ');
ReadLn(C);
WriteLn('Введи второй символ');
ReadLn(A);
WriteLn('Введи третий символ');
ReadLn(B);
if (Ord(A)*Ord(B)) mod Ord(C) = 0 then WriteLn('Верно')
else WriteLn('Не верно')
End.
1) таблица умножения
2) таблица химических элементов
<span><span>
Дано:
V=2,6 Мб
T=1 мин
Моно- ×1
H= ?
I= ?
Решение:
V= T ×I × H × 1; I × H= V / T
I × H= 2,6 Мб/1 мин. = 2,6×1024×1024×8 бит/ 60 сек=21810380,8/60=
363506,237
363506,237/8=45438,3
363506,237/16=22719,15
Ответ.
Если I=8 ,бит, то H=44,1 кГц.
Если I=16 бит, то H=22,05 кГц.
</span></span>
1 5 2 3
Номера сетей или узлов (проще говоря, цифры, которые отделяет точка) должны быть не больше 256, следовательно и не могут быть 4х значными. Подбираем числа так, чтобы все сходилось
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadlnString.ToWords.Count.Println
end.
<h2>Пример</h2>
Наша Маша громко плачет уронила в речку мячик
8