Просто подставляешь переменные в формулы и решаешь
Текстовый: doc, txt, docx, ttf (формат компьютерных шрифтов, не знаю, подходит ли он)
графический: jpg, tiff
видео: mov, mpg, avi
звуковой: wav, mp3
Const
n = 5;// количество элем массиваvar
a: array [1..n] of integer;
sum, i: integer;begin
for i := 1 to n do
readln(a[i]);
for i := 1 to n do
if a[i] = i then
sum := sum + a[i];
writeln(sum);
end.
/<u>/ PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadReal('Введите число:').ToString.ToWords('.');
if a.Length=2 then Writeln(a[0]=a[1])
else Writeln(False);
end.
<u>Примеры</u>
Введите число: 121.121
True
Введите число: 12.11999
False