Сумма от i=1 до n
выражения (X i-ое / (1 + модуль Y i-ое ))
Вот как расшифровывается знак суммы:
(X1/(1+|Y1|)) + (X2/(1+|Y2|))+ ... (Xn/(1+|Yn|))
А знак модуля возвращает абсолютную величину числа, то есть если число положительное возвращает само число, если оно отрицательное - возвращает его без знака минус.
|Yn|=|-Yn| >=0
|5| = 5
|-5| = 5
{тоже как вариант}
const
v: array [0..9] of integer = (1,0,0,0,1,0,1,0,2,1);
var
x,n: integer;
begin
read(x);
n := 0;
repeat
n := n + v[x mod 10];
x := x div 10;
until x = 0;
write(n)
end.
Ввод: микрофон, вебкамера, тачпад, сканер, клавиатура
Вывод: монитор, принтер, колонки, плоттер
Хранение: юсб-накопитель, жесткий диск
Program Nonenone;
uses crt;
var
n,i:integer;
max,v:real;
yes: string;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
max:=0;
yes:='NO';
writeln('Введите количество машин (не больше 30 - у меня мало памяти!)');
write('N = ');
readln(n);
if n>30 then
writeln('Это слишком много!')
else
begin
writeln('Вводите зарегистрированную скорость каждого автомобиля');
for i:=1 to n do
begin
write(i,'-я машинка: ');
readln (v);
if v >300 then
begin
writeln ('по-моему, твои приборы глючат - так быстро машины не ездят');
writeln ('Это число не будет учтено');
end
else
begin
if v<30 then yes:='YES';
if v>max then max:=v;
end;
end;
writeln();
writeln('Максимальная зарегистрированную скорость ',max);
writeln('Cкорость меньше 30 км/ч? ',yes);
end;
end.