Программист написал программу, вычисляющую сумму элементов массива A, десятичная запись которых заканчивается на 5. Какое условие он записал вместо многоточия? В ответе запишите только пропущенное условие

Запишите ответ в поле для ответа

s := 0;
for i := 1 to n do begin
if ... then
s:= s + A[i]
end;

5

Объяснение:

пока S1 < S выполняем действия:

N = N + 1

S1 = S1 + 1 / N

S = 2,13       S1 = 0       N = 0

S1 < S       0 < 2,13       ДА

N = 0 + 1 = 1

S1 = 0 + 1 / 1 = 0 + 1 = 1

S1 < S       1 < 2,13       ДА

N = 1 + 1 = 2

S1 = 1 + 1 / 2 = 1 + 0,5 = 1,5

S1 < S       1,5 < 2,13       ДА

N = 2 + 1 = 3

S1 = 1,5 + 1 / 3 = 1,5 + 0,333 = 1,833

S1 < S       1,833 < 2,13       ДА

N = 3 + 1 = 4

S1 = 1,833 + 1 / 4 = 1,833 + 0,25 = 2,083

S1 < S       2,083 < 2,13       ДА

N = 4 + 1 = 5

S1 = 2,083 + 1 / 5 = 2,083 + 0,2 = 2,283

S1 < S       2,283 < 2,13       НЕТ

S = 2,13       S1 = 2,283       N = 5

№1

var x, F: real;
begin
write('Введите х: ');
readln(x);
if ( x > -2.4 ) AND ( x < 5.7 ) then F := sqr(x)
else F := 4;
writeln('F = ', F);
end.

№2

var x, F: real;
begin
write('Введите х: ');
readln(x);
if ( x > 0.2 ) AND ( x < 0.9 ) then F := sin(x)
else F := 1;
writeln('F = ', F);
end.

№3

var a,b,c: real;
begin
write('Введите а: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите c: ');
readln(c);
if ( a < b ) AND ( b < c ) then writeln('a < b < c')
else
if ( b > a ) AND ( a > c ) then writeln('b > a > c')
else
writeln('Неравенства не выполняются');
end.