Question

помогите , пожалуйста 91 задание .

Answer 1

DIM N,
S
AS
INTEGER N = 0 S = 0
WHILE S <= 249 S = S + 24 N = N + 10 WEND PRINT Nvar n, s: integer; begin     n := 0;     s := 0;    
while s <= 249 do     
begin         s := s + 24;         n := n + 10     end;     
write(n) end.