Ответ:
Пиктограмма,изображённая на картинке обозначает,что вода непригодна для питья.
Var S:real;
A,N,i:integer;
Begin
Write('N = ');Read(N);
S:=0;
i:=1;
Repeat
Read(A);
if (A mod 3 = 0)and(A mod 10 = 4) then S:=S+A;
i:=i+1
Until i > N;
WriteLn('S = ',S);
End.
Пример работы программы:
N = 5
1 24 74 54 36
S = 78
Пусть x - основание системы счисления, тогда
1*x²+2*x+5=148
Решив квадратное уравнение, получим x=11 (подходит только положительный корень)
Заполненная таблица в приложении.
отчисления на рекламу скопировать и вставить с транспонированием, тогда строка превращается в столбец.