Var
A,B,i:integer;
k:byte;
Begin
i:=0;
k:=0;
Repeat
Read(A);
i:=i+1;
if (i>2)and(i<5) then
Begin
B:=Abs(A);
if (9<B)and(B<100)and(B mod 10 = 2) then k:=k+1;
End;
Until (A = 0)or(i>=5);
if A<>0 then
Repeat
Read(A);
Until A = 0;
WriteLn(k)
End.
Зачем писать "10 баллов", будто ты можешь поставить ещё меньше?
Переписываем на JS (попутно сокращая мусор, вроде условия с одинаковым телом "S += D % 10" или "10 / 2").
javascript:var A = 12, B = 15, S = 0, D = (A * B / 7 | 0) - 5 + A; while (D % 10 * 10 != 30) { if (D % 2 == 0) S += D % 10; D = D % 10 * 8 + 3; } alert(S);
Выполняем и получаем 2.
1833 год , Чарлз Бэббидж,Англия
1 электронная почта
2 Луи Брайль