Var
x, n, max: integer;
begin
n := 0;
max := 0;
while true do
begin
read(x);
if(x mod 3 = 0)and(x<>0) then n := n + 1
else begin if(n > max) then max := n; n := 0; end;
if(x = 0) then break;
end;
write(max);
end.
Ответ:
я незнаю:)
Объяснение:
я тупой оалввлдвдадададщащвща
Примем A3 за х , тогда формула будет выглядеть следующим образом (+ подставляем имеющиеся значения):
(2х-5)*8=40
делим обе части уравнения на 8 , тогда
2х-5=5
2х=10
х=5
Ответ : 5