S:=1; - переменной s присваивается начальное значение 1
<span>for i := 10 to 99 do - начало цикла с параметром, i - параметр цикла, 10 - начальное значение параметра, 99 - конечное значение параметра. Т.е. цикл будет выполняться 90 раз, параметр i будет принимать последовательно значения 10, 11, 12, ..., 99.
</span>if (i mod 13 = 0) and (i mod 2 <> 0) then - условный оператор. В условии используется операция mod - определение остатка от целочисленного деления. (i mod 13 = 0) - это условие будет выполняться для чисел, которые делятся на 13 без остатка; (i mod 2 <> 0) - это условие будет выполняться для чисел, которые делятся на 2 с остатком (это нечетные числа). Таким образом, условие <span>(i mod 13 = 0) and (i mod 2 <> 0) будет иметь значение true для нечетных чисел, которые делятся на 13 без остатка (это 13, 39, 65, 91).
</span>Программа в целом вычисляет произведение нечетных чисел, которые <span>делятся на 13 без остатка.
(В программе есть ошибка. Тип переменной s должен быть integer.)</span>
На фото всё размыто, и не видно(
Var i:longint; m:array[1..10] of longint;
Begin
for i:=1 to 10 do
begin
read(m[i]);
if m[i] mod 2 = 1 then
m[i]:=m[i]*4 else
m[i]:=m[i]*3;
end;
for i:=1 to 10 do
write(m[i],' ');
<span>End.</span>
Зависит от того в каком языке используется. Например, в файловой системе DOS тильда используется для сокращения наименований файлов и каталогов.
<span>в unix-подобных операционных системах с тильды начинается иерархический
путь к своим файлам: ~/mydir/myfile — или к файлам другого пользователя: ~ivanov/texts/report.<span>txt
и так далее</span></span>