var a,b,c:array[1..100] of integer;
i,n:integer;
begin
n:=1;
for i:=1 to 25 do
begin
a[i]:=random(20)+100;
write(a[i],' ');
if (i > 14) and (i <21) then n:=n*a[i];
end;
writeln;
write('Произведение=',n); writeln;
end.
Дискретная(прерывная) и аналоговая(непрерывая)
Прости но я не смогла выполнить 4 задание.
Var
n, s: integer;
begin
readln(n);
s := n mod 10 + n div 10000;
writeln(s);
end.
Дело в том, что в русском языке нет звука [я]. Букву я мы воспроизводим с помощью звуков [й],[а]. Поэтому само задание неверное.